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‚ФОРТРАН (Программированное учебное пособие). Ю щен • 


‘ко Е. Л., Небрат О. П., Переходи. А., Ющен- 
ко А, А. Издательское объединение «Вища школа», 1976, 328 с, 


Қнига является пособием по языку ФОРТРАН — одному из наи- 
более распространенных и широко признанных языков програм 
мирования в сфере научных и научно-технических приложений. 
Простота языка, эффективность получаемых при трансляции с 
него рабочих программ, наличие развитых средств редактиро- 
вания информации обеспечили ФОРТРАНу особое место среди. 
многих языков программирования. От известных советскому 
читателю книг по ФОРТРАНу настоящее пособие отличается 
полнотой изложения и выбором из многочисленных версий 
этого языка его стандарта. Изложение сопровождается пояснех 
ниями и большим количеством разнообразных примеров. 

Книга может быть использована при подготовке различных кате- 
горий читателей — от студентов вузов до слушателей курсов 
профессионально-технической подготовки. 

Табл. 28. Ил. 36. Библиогр. 16. 
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(С) Издательское объединение «Вища школа», 1976. 


ПРЕДИСЛОВИЕ 


Коммунистическая партия й Советское правительство поставили 
задачу дальнейшего развития народного хозяйства СССР на основе 


‚научно-технического прогресса, уделив при этом внимание вопросам 


разработки проблем теоретической и прикладной математики и ки: 
бернетики для более широкого применения в народном хозяйстве 
математических методов и электронно-вычислительной техники. В 
ближайшие годы предусмотрено создание общегосударственной авто- 
матизированной системы сбора и обработки информации для учета, 
планирования и управления народным хозяйством на базе государ- 
ственной сети вычислительных центров. 

Проблема эффективного использования ЭВМ как технической ос- 


Новы автоматизированных систем управления может быть успешно 


решена лишь посредством создания развитых средств общения чело- 


века с машиной, среди которых главную роль играет использование 


языков программирования различной ориентации. В связи с этим по- 
нятен широкий фронт работ по созданию новых языков програм- 
мирования и разработке методов их реализации. 

Вместе с тем в сфере использования языков программирования 
все ярче просматривается тенденция к выделению из их обширного 
количества, исчисляемого уже тысячами, некоторых языков, прошед- 
ших практическое опробование и выдержавших многолетние испыта- 
ния, и фиксация их стандарта. 

Одним из таких языков, получивших широкое распространение 


‚ и всеобщее признание (наряду с языками АЛГАМС, КОБОЛ), являет- 


ся ФОРТРАН — один из наиболее ранних языков программирова- 
ния, стандарт которого [8] был определен в 1966 г. | 

Язык программирования ФОРТРАН является в настоящее время 
одним из самых распространенных языков общения с машиной. 

Появление ФОРТРАНа относится к 1954 году, когда группа аме- 
риканских специалистов в области программирования, возглавляемая 
проф. Дж. В. Бэкусом, подготовила доклад, содержащий первое сооб- 
щение о данном языке. В ‘1958 г. была выдвинута новая расширенная 
версия ФОРТРАНа, называемая ФОРТРАН П. 

В 1961 г. появился ФОРТРАН ПТ ив 1962 г.— ФОРТРАН 1\. 


В 1966 г. был определен стандарт языка ФОРТРАН, который и 
положен в основу настоящего пособия. 

Язык был задуман для использования в сфере научных и инженер-_ 
но-технических вычислений, о чем говорит само слово ГОКТВАМ, 
сокращение двух слов ҒОКтша ТКАМ$аНоп — «преобразование фор- 
мул». Но возможности языка оказались гораздо более широкими. 
В частности, ФОРТРАН удобен для описания задач с разветвленной 
логикой (моделирование производственных процессов, задачи теории 
игр, эвристические задачи и др.), задач, связанных с представлением 
данных в виде сводок, ведомостей и т. п. | | 

Выбор языка ФОРТРАН в качестве массового языка программиро- · 
вания объясняется его качествами, из которых. следует отметить: 
1) простоту по сравнению с другими языками программирования той 
же ориентации (например, АЛГОЛом), обеспечивающую эффектив- 
ность выполнения оттранслированных (рабочих) программ; 
2) ФОРТРАН достаточно удобен для программирования . широкого. 
круга вычислительных алгоритмов; 3) в ФОРТРАНе имеются доста- 
точно удобные средства для связи человека с машиной и представле- 
ния информации в привычном для специалиста виде. Наконец, 
ФОРТРАН хорошо приспособлен для эффективного использования 
внешних устройств современных ЭВМ. Преимуществом ФОРТРАНа 
является также то, что к настоящему времени на этом языке разработаны 
и накоплены обширнейшие библиотеки программ, включающие как 
стандартные программы, так и множество специальных программ, _ 
применяемых для решения разнообразных задач. — 

_ Следует заметить, что со времени появления первой версии языка 
ФОРТРАН (1954 г.) и до принятия его стандарта язык непрерывно 
развивался, и некоторые его версии были закреплены в тех или иных 
реализациях, более или менее отличающихся друг от друга. В ре- 
зультате пользователи языка оказались перед фактом программной 
несовместимости отдельных его реализаций на различных типах 
ЭВМ. | | 
Учитывая это, авторы в основу написания настоящей книги поло- 
жили стандарт языка ФОРТРАН, тем более, что в серии машин ЕС 
в математическое обеспечение входят трансляторы с языка ФОРТРАН 
в его версии ФОРТРАН ТУ, близкой к стандарту. 

Пособие включает детальное изложение средств стандарта языка 
ФОРТРАН и методики их использования. Изложение сопровождает- 
ся пояснениями и большим количеством примеров. Последние подоб- 
раны так, что для усвоения материала настоящего пособия достаточ- 
но подготовки в объеме курса средней школы. Книга может быть ис- 
пользована при подготовке пользователей различных категорий: от 
студентов вузов до курсов профессионально-технической подготовки. 

Программированный характер пособия значительно облегчает изу- 
чение предмета. | 
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Авторы надеются, что книга будет способствовать увеличению 
числа специалистов, применяющих в своей работе вычислительные 
машины, повышению культуры программирования и, в конечном 
счете, повышению эффективности использования ЭВМ. | 

Отзывы просим направлять по адресу: 252054, Киев-54, ул. Гого- 
левская, 7, Головное издательство издательского объединения «Вища 
школа». 


КАК РАБОТАТЬ С КНИГОЙ 


Книга состоит из следующих частей: 

1. Программированное пособие, при изучении которого Вы овла- 
деете навыками использования наиболее употребительных средств 
языка, научитесь писать достаточно сложные программы для реше- 
ния вычислительных и инженерных задач. 

2. Сводка основных правил программирования на языке 
ФОРТРАН, которая будет Вам необходима при дальнейшей работе 
с языком ФОРТРАН. | 

Все эти части позволят определить лучший режим процесса освое- 
ния языка ФОРТРАН и сочетать работу над средствами языка по 
программированной части (часть 1) с возможностью «взглянуть на язык 
в целом» по сводке правил. 

Текст учебника по языку ФОРТРАН разделен на порции, содер- 
жащие материал об отдельных конструкциях языка. После каждой. 
порции предлагается одно или несколько заданий для проверки ус- 
воения этого материала и закрепления навыков, необходимых для вы- 
полнения дальнейшей работы. Учебник построен таким образом, что 
для выполнения любого задания, входящего в порцию, вполне доста- 
точно сведений, содержащихся в этой порции и ей предшеству- 
ющих. а. | 4 

Чтобы усвоить язык ФОРТРАН, необходимо строго соблюдать 
следующие правила работы с программированным учебником: 

1. Все задания выполняйте самостоятельно. Не заглядывайте в 
ответ раньше, чем задание будет выполнено. 

2. Обязательно записывайте ответы в свою тетрадь, даже в тех 
случаях, когда они кажутся очевидными. | 

З. Когда ответ записан, сравните его с приведенным в книге. 
Если допущена ошибка, не ограничивайтесь ее исправлением. Очень 
важно выяснить причину ошибки. Для этого, возможно, придется 
еще раз прочитать последнюю порцию, а иногда и несколько преды- 
дущих. А 

4. В ряде случаев на одно и то же задание моѓут быть даны различ- 
ные правильные ответы и тогда может оказаться, что Ваш ответ ве- 
рен, хотя он и не совпадает с приведенным в учебнике. В таких слу- 
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чаях (если это не очевидно) указывается, как определить, получен ли 
правильный ответ на задание данного типа. 

5. Приступайте к изучению новой порции только после усвоения 
предыдущей и правильного выполнения содержащихся в ней заданий. 

Соблюдая указанные требования, Вы сможете хорошо усвоить 
ФОРТРАН и решать разнообразные вычислительные задачи с по- 
мощью ЭЦВМ, ознакомившись предварительно с соответствующей ин- 
струкцией по входному языку. 

После прохождения курса в практической работе рекомендуем 
пользоваться приведенным в конце книги справочником, в котором 
сжато изложены основные сведения по языку ФОРТРАН. 


Глава Т 


Элементы языка ФОРТРАН 


Порция 1 | 
Программа на ФОРТРАНе 


Для того чтобы использовать вычислительную машину для реше- 
ния какой-либо задачи, алгоритм решения этой задачи необходимо 
представить в виде программы. | 

Программа — это конечная последовательность четко определен- 
ных инструкций (операторов), «понятных» машине, порядок выпол- 
нения которых строго установлен. Составление программы на языке 
машинных операторов, т. е. управляющих кодов, непосредственно 
воспринимаемых и выполняемых машиной, является трудоемким и 
утомительным процессом. Программирование задачи значительно упро- 
щается при использовании специальных языков программирования, 
одним из которых является ФОРТРАН. Язык ФОРТРАН предназна- 
чен для решения широкого круга научных и инженерных вычисли- 
тельных задач. Большим преимуществом ФОРТРАНа является его 
близость к привычному алгебраическому языку. 

Программа, написанная на ФОРТРАНе, может быть выполнена 
на любой машине, снабженной транслятором с этого языка. Трансля- 
тор — это программа, которая переводит программу, написанную на 
ФОРТРАНе, на язык конкретной вычислительной машины. 

В функции транслятора входит не только перевод с одного языка 
на другой, но и указание некоторых ошибок, допущенных програм- 
мистом при написании программы. Например, транслятор выдает со- 
общение об ошибке, если программист забыл поставить закрываю- 
щую скобку, и т. д. Программа на ФОРТРАНе называется исходной 
относительно транслятора, или ФОРТРАН-программой, а полученная 
в результате работы транслятора эквивалентная программа на языке 
конкретной машины — рабочей программой. Получение и выполнение 
рабочей программы осушествляется автоматически после ввода исход- 
ной программы, занесенной на перфокарты или на другой носитель 
информации. 

ФОРТРАН-программа может состоять из одной главной программы 
или из главной программы и нескольких других программных единиц, 
которыми могут быть так называемые внешние процедуры (внешние 
функции и подпрограммы) и сопрограммы данных. 


Одну из важных особенностей языка составляет возможность раз- 
деления этапа трансляции на два этапа — собственно трансляция и 
сборка. Причем первый из названных этапов может выполняться раз- 
дельно для каждой из программных единиц. 

В процессе выполнения ФОРТРАН-программы главная программа 
может вызывать к исполнению другие программные единицы, кото- 
рые, в свою очередь, также могут обращаться к другим программным 
единицам (однако, не к главной программе); при этом никакая 
| | из программных единиц не может 

Главная программа обращаться сама к себе как непо- 
средственно, так и посредством дру- 
гих программных единиц. (В этом 
случае говорят, что в языке недо- 
пустимо рекурсивное выполнение 
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ницу. 
Схематически структуру ФОРТ- 
РАН-программы можно изобразить 
в виде схемы, пример которой представлен на рис. 1, гдесплошными 
стрелками показаны возможные обращения одной программной еди- 
ницы к другой, а рядом проходящими пунктирными линиями показаны 
возвраты, следующие после их выполнения. | 
Внешняя процедура — это последовательность операторов и ком- 
ментариев, начинающаяся одним из операторов ЕОМСТШОМ или 
ЗУВКООТИ\Е и не содержащая внутри себя таких операторов. 
Сопрограмма данных — это последовательность операторов и ком- 
ментариев, начинающаяся оператором ВГОСК РАТА и не содержа- 
щая внутри себя такого оператора. | | 
Главная программа представляет собой последовательность опе- 
раторов и комментариев, не содержащую указанных трех операторов: 
ЕОМСТІОМ, 5ОВКООТІМЕ и ВГОСК РАТА. „в 
Каждая программная единица завершается конечной строкой. 
Программа на ФОРТРАНе составляется из операторов, которые 
подразделяются на два обширных класса: выполняемые и невыпол- 
няемые. К первому из этих классов относятся операторы, определяю- 
щие действия, связанные с преобразованием данных, их ВВОДОМ, ВЫ- 
водом, или предназначенные для определения очередного, подлежа- 
щего выполнению, оператора программы. Невыполняемые операторы 
предназначены для описания характеристик данных (элементов, под- 
лежащих обработке), способов их организации, редактирующей ин- 
формации (т. е. информации, используемой для редактирования дан- 
ных), классификации программных единиц. | 


Рис. 


В свою очередь выполняемые операторы подразделяются на сле- 
дующие группы: | | 

а) операторы присвоения, вычисляющие и присваивающие пере- 
менным значения арифметических и логических выражений или метку; 

б) операторы ввода-вывода информации; | 

в) операторы, управляющие последовательностью выполнения опе- 
раторов программы, обеспечивающие ‘повторное выполнение частей 
программы и т. п. 

Приступим теперь к изучению компонентов, из которых состав- 
ляются операторы ФОРТРАН: констант, ‘переменных, знаков опера- 
ций, выражений и др. После этого изучим правила использования 
этих компонентов для составления отдельных операторов и правила 
составления программ из операторов. 

Наша задача изучения языка ФОРТРАН естественно расчленяется 
на ряд подзадач, основные из которых: 

1. Изучение правил написания ФОРТРАН-программ — синтак- 
сиса языка и семантики — их смыслового значения. 

2. Изучение форм представления обрабатываемых посредством 
ФОРТРАН-программ данных и данных, получаемых в результате их 
выполнения. 

Задание. 1. Что такое исходная и рабочая программы? 

2. Какие функции выполняет транслятор? 

3. Из каких компонент может состоять ФОРТРАН-программа? 

4. На какие классы подразделяются операторы ФОРТРАНа? 

5. Назовите группы выполняемых операторов языка ФОРТРАН. 


Порция 2 
Алфавит ФОРТРА На 


Символы какого-либо языка, в том числе и языка программиро- 
вания, — это основные, неделимые знаки, в терминах которых пишутся 
тексты на языке. Некоторый фиксированный набор символов, ис- 
‘пользуемых для построения компонентов языка, называется алфави- 
том этого языка. Алфавит ФОРТРАНа включает три группы сим- 
волов: = | 

1) Буквенные символы — все прописные буквы латинского алфа- 
вита: АВ. СО. Е, Е? С. НАС М, М, рта 
Тм, Хм | 


е 
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9) Цифровые символы: 0123456789 
3) Специальные символы: 


Символ Название символа 
пробел 

знак плюс 

знак минус 

знак умножения (звездочка) 
знак деления (черта) 
знак равно 

запятая 

точка · 

левая скобка 

правая скобка 
денежный знак 


Перечисленные символы и только они используются для записи 
ФОРТРАН-программ. Порядок, в котором перечислены символы язы- 
ка, специального значения не имеет. Заметим, что пробел, за исклю- 
чением особо оговоренных случаев, самостоятельного значения не 
имеет и может использоваться свободно для удобочитаемости. 

Из символов языка образуются слова данного языка, т. е. конст- 
рукции, являющиеся минимальными единицами, имеющими неко- 
торый самостоятельный смысл в данном языке. 

В языке ФОРТРАН различаются два типа слов: служебные (заре- 
зервированные) слова и слова пользователя. Слова пользователя слу- 
жат для обозначения данных и некоторых других объектов. и выби- 
раются согласно определенных правил программистом по его усмот- 
рению. Служебные слова имеют фиксированное начертание и значе- 
ние. | 

Задание. 1. Сколько символов можно использовать при напи- 
сании ФОРТРАН-программ? 

2. Сколько специальных символов имеется в ФОРТРАНе? Назови- 
те их. 


Порция 3 
_ Служебные слова 


_ Программист может использовать служебные слова только в том 
написании, в котором они определены в грамматике ФОРТРАНА. 
Так, например, служебное слово ЅОВВКООТІМ№Е не может быть заме- 
нено словом ЗИВРВОСВАМ, или слово ГОССАТ, словом ВООГ ЕАМ. 

В табл. | приводится перечень служебных слов языка и их рус- 
ский перевод. Служебные слова перечислены в алфавитном порядке. 
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Таблица Г. 
Служебные слова языка ФОРТРАН 


На ФОРТРАНе Русский текст № группы 


А5519М ТО @Ссаии-ч 


присвоить · | 1 
ВАСК$РАСЕ Ср СИС. | шаг назад У АС | 1 
ВГОСК РАТА ©“ блок данных Ло де. 3 
баса а ОЛА вызвать б І ) 

М —^ общий ЕЯ 

СОМРІЕХ л комплексный 2 
СОМТІМОЕ 9 уу КЬм продолжать 1 
РАТА Ее данные 2 
ОІМЕМЈОМЧ — <АРМ це д. размерность 4 
ро “Әб ‚| выполнить ыо Ы ар 
РОЧВЕЕ РКЕСІЅІОМ, Д й ((*2)| повышенная р К ирРагяри ту 
ЕМ” ^ < конец З 
ЕМ”РЕП.Е Сло Ол ул > | конец файла 37 
ЕООІМАТЕМСЕ ыў эквивалентность 4 
ЕХТЕВБМАГ, внешний 2 
РОКМАТ формат 2 
ЕОМСТІОМ рё Дүрдү | функция 3 
СО ТО Хх перейти к 1 
[Е если 1 
ІМТЕСЕВ Е целый . 2 
ГОСІСАЬ Ароу мл уд | логический 2 
РАОЅЕ Є А пауза м6у2. 1 
КЕАР”Р рий читать | ? 1 
КЕАБ Пл А вещественный 2 
КЕТОКМ рТ < ү _ | вернуться 1 
КЕММО кА бз рау С | перемотать 1 
ТОР У , 3 стоп 1 
ЗОВКОЧТМЕ Ф ид ВОС | подпрограмма 3 
\ЕТТЕ пенса я писать 1 


=ч ч 


Служебные слова, приведенные в табл. 1, можно разделить на сле- 
дующие группы (номер группы указан в третьей колонке): 

1) слова-предписания для выполнения действий (например, РО, 
САГ, КЕАР); 

2) слова-описатели, предназначенные для описания величин (на- 
пример, ІЧТЕСЕК, КЕАГ, Г.ОС]САГ): 

3) слова, определяющие структурные подразделения программ 
(например, ЗОВВОПТИ\Е, ЕОМСТІОМ); 

4) слова, описывающие группы величин и их отношения (напри- 
мер, СОММОМ, РІМЕМ№ІОМ№). 

Задание. 1. Қакие типы слов используются в языке ФОРТ- 
РАН? 

2. На какие группы подразделяются служебные слова? 


Порция 4 
Типы данных 


Данные в ФОРТРАН-программах могут быть представлены в виде 
констант или обозначений переменных — их наименований. В языке 
допускаются данные шести типов: 


целые 

вещественные 
повышенной точности 
комплексные 
логические 

текстовые 


Первые четыре типа составляют группу числовых данных (чисел). . 

Каждый из типов данных имеет свой собственный смысл и может 
иметь различные способы машинного представления. Для каждого из 
типов данных определен набор элементарных операций. 

Данные целого типа являются точным представлением целых 
чисел; данные вещественного типа являются приближенным значе- 
нием вещественных чисел; данные повышенной точности также яв- 
ляются приближенным значением вещественных чисел, однако сте- 
пень приближения их выше, чем степень приближения для вещест- 
венных. | 

Данные всех этих трех типов могут быть положительными, отри- 
цательными или равными нулю; нуль не является ни положительным, 
ни отрицательным. 

Данные комплексного типа являются приближенным значением 
комплексных чисел, представляемых в форме упорядоченной пары 
вещественных чисел. Первое из них представляет действительную, 
а второе — мнимую часть комплексного: числа. 

Стандарт языка не определяет диапазон и точность представления 
числовых значений; в каждой конкретной реализации они могут быть 
различными. 

Данные логического типа могут принимать одно из двух значе- 
ний: ТРОЕ. или .ЕАТЅЕ. (истина или ложь). 

Текстовые данные представляют собой последовательности симво: 
лов, которые могут включать любые символы, имеющиеся на устрой- 
ствах ввода-вывода данной ЭВМ. 

Задание. 1. Перечислите типы данных, используемых в языке 
ФОРТРАН. | 

2. Какие значения могут принимать лдћические данные? 
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Порция 5 
Константы 


Любое данное, которое появляется в программе в явном виде, на- 
зывается константой. В операторах, записанных ниже: Р; 


С = 9.8 
Т = 0.0 
У-У-Т бб. СТ. 


9.8, 0.0, 0.5 и 2 — константы. 

Соответственно шести типам данных в ФОРТРАН-программе раз- 
решается использовать шесть типов констант: целые, вещественные, 
повышенной точности, комплексные, логические, текстовые. Тип и 
значение константы определяется по ее написанию. Например: | 


Константа Тип 

1023 | целая 

102.3 вещественная 
2.2453216707 повышенной точности 
(2.37, 1.41) комплексная 

„ТВОЕ. логическая 
6НАВ6бВГД текстовая 


Задание. 1. Какие данные называются константами? 
2. Можно ли определить по написанию константы ее тип? 
3. Определяет ли написание константы ее значение? 


_ Порция 6 
Константы (продолжение) 


Целые константы 


Целая константа записывается в виде непустой строки цифр, перед 
которой может стоять знак плюс или минус. Целая константа обозна- 
чает целое десятичное число 1. | 

Знак плюс перед положительными константами можно опускать; 
перед отрицательной константой обязательно должен стоять знак 
минус. 

В табл. 2 приведены примеры правильной и неправильной записи 
целых констант. | | р 


* В двух операторах языка ФОРТРАН: ЅТОР и РАОЗЕ, могут использоваться 
восьмеричные (не более, чем 5-разрядные) константы, для записи которых использу- 
ются цифры 0, 1, 2, 3, 4, 5, 6, 7. 
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Таблица 2 


Правильная Недопустимая запись 
запись целых целых констант Ошибки 
констант 
—274 —9274, десятичную точку нельзя использовать 
| в записи целой константы 
-|--400 --400,000 запятую нельзя употреблять ни в за- 
писи целой, ни в записи вещественной 
константы 


29 523 43 212 952 317 417 121 слишком велико для большинства ЭЦВМ 


Задание, Какие константы называются целыми? 


Порция 7 
Константы (продолжение) _ 


Вещественные константы 


Вещественными называются константы, имеющие в своей записи 
десятичную точку *, которая отделяет целую часть от дробной, или 
порядок, имеющий вид Еи, где п — одно- или двузначное целое, по- 
ложительное (без знака или со знаком --) или отрицательное (со зна- 
ком —). Порядок в общепринятой записи обозначает наличие у числа 
множителя вида 10”. Например: 

82 — целая константа, а 

0.82Е-Е2 или 82. (или 82.00) — вещественная константа. Эти чис- 
‚ла не взаимозаменяемые, поскольку формы кодирования целых и ве- 
щественных чисел в ячейках памяти ЭВМ и способы выполнения над 
ними арифметических операций различны. 

В вещественной константе десятичная точка может стоять в на- 
чале, в средине и в конце числа. Запись вещественного числа может 
содержать любое количество цифр, но, в зависимости от ЭВМ, только 
определенное количество старших разрядов будут занесены в память 
ЭВМ, а все остальные будут потеряны. Об этом следует помнить, когда 
приходится иметь дело с очень большими числами. 

Форма представления вещественных констант без десятичной экс- 
поненты (но с десятичной точкой) называется формой представления 
с фиксированной запятой (или формой Е). В записи вещественной кон- 
станты в форме Е целая или дробная часть, равная нулю, может быть 
опущена, но не обе одновременно. То есть число 27 на ФОРТРАНе 
в форме Е можно записать как 27., или 27.0, а число 0,27 как 0.27, 
или .27. 


\ В ФОРТРАНе вместо привычной нам «десятичной запятой» используется «де- 
сятичная точка», ? 
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"е; Р: 


Другой формой записи вещественных чисел является форма с пла- 
вающей запятой (или форма Е): после целой или вещественной кон- 
станты (мантиссы) ставится буква Е и одно или двузначное целое по- 
ложительное или отрицательное число (показатель степени). Такая 
запись используется только для представления вещественных (а не 
целых констант) и означает, что исходная константа должна быть ум- 
ножена на 10 в указанной степени. Форма Е удобна для записи очень. 
больших или очень малых чисел. 

Если показатель степени — положительное число, знак плюс пе- 
ред ним может быть опущен. Перед отрицательным показателем сте- 
пени обязательно должен стоять знак минус. Ни мантисса, ни порядок 
в записи константы в форме Е не могут быть опущены. 

В табл. 3 приведены примеры допустимой и недопустимой записи 
вещественных констант. 


Габлица 8 
Правильная запись | Недопустимая запись 
вещественных вещественных Ошибки 
констант констант 
--15.016 -- 15,016 запятую употреблять нельзя 
—5.0Е--6 —5.0Е--6.5 показатель степени должен быть целым 
1.2510 1.26203 | показатель степени не может быть трех- 
значным числом 
6.205Е 12 6.205Е63 ао слишком велико для большинства 
25.32Е 4-5 Е--5 нет мантиссы 
—9.02Е4 —9.02Е | нет порядка 
261 2Е.—1 лишняя точка 
4Е0 4Е001 показатель степени трехзначный 
85Е00 85Е0.0 показатель степени должен быть целым 
3Е—92 285—111 у 


Е С о и АНН, 


Задание. 1, Запишите следующие числа в виде вещественных 
констант, соблюдая правила ФОРТРАНа: 

а) 347; 6) 74,32; в) —5100; г) 10; д) 0,0000000834; е) —920; 
ж) — 45,2171, ` х | 

2. Все приведенные ниже записи неприемлемы в качестве вещест- 
венных констант. 

Почему? 

а) —235,000; 6) 2Е- 4.1; в) 4,78256Е— 12; 

г) --2856; д) ЗЕ—43.; е) 25.04Еб8 

3. Определите, являются ли в каждом случае две рядом стоящие 
константы записью одного и того же числа: 

а) 16.9 + 16.9 

6) 23 000. 2.3Е4 
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Порция 8 
Константы (продолжение) 


Константы повышенной точности 


Вещественные константы с плавающей запятой могут представлять- 
ся с обычной (форма Е) и повышенной точностью — форма О. Для изо- 
бражения вещественных чисел повышенной точности и используется 
форма Р (удвоенной точности — РООВГЕ РВЕСІЅІОМ№). Число в 
форме Ю записывается следующим образом: после целой или вещест- 
венной константы (мантиссы) ставится буква Р и любое одно- или 
двузначное целое положительное или отрицательное число (показа- 
тель степени). Например, число ев форме Е записывается как 2.718282, 
ав форме О — как 2.718281828459045р0. В остальном правила записи 
констант в форме О те же самые, что и для вещественных констант с 
плавающей запятой (форма Е). 

Задание. Запишите на ФОРТРАНе вещественную константу 
375453214891.2254 в форме О. 


Порция 9 
Константы (продолжение) 


Комплексные константы 


Комплексная (СОМРІЕХ) константа записывается в виде двух 
вещественных констант, разделенных запятой и заключенных в кру- 
глые. скобки. Первая константа является записью действительной 
части комплексного числа, а вторая — мнимой. Примеры записи ком- 
плексных констант: 


Комплексное число Представление в ФОРТРАНе 
2,7 4 17,91 (2.7, 7.51) 
2. 10° — 18,19 (2.ЕЗ, — 8.19) 


Обе части комплексной константы подчинены правилам записи 
_ вешественных констант с плавающей или фиксированной запятой. 

Ни мнимая, ни действительная часть комплексного числа не мо- 
жет быть представлена константой типа повышенной точности. На- 
пример, запись (.6408, — 25.3) или (.647562107, 23.453408) недо- 
пустимы. | 

Задание. Запишите на ФОРТРАНе следующие комплексные 
числа: а) 315,3 + 12,22; 6) 21-10° - 12,1; в) 3.108 — 13,155, 
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Порция 10 
Константы (продолжение) 


Логические константы 


Имеются две логические константы: .ТКОЕ. (истина) и .ЕАТЗЕ. 
(ложь). 

При написании этих констант точки справа и слева от слов ТРОЕ 
и НАГЗЕ обязательны. 

Задание. 1. Сколько имеется логических констант? Запиши- 
те их. | | 

2. Сколько форм записи чисел имеется в языке ФОРТРАН? Како- 
ВЫ ОНИ? | | 


Порция 11 
Константы (продолжение) 
Текстовые константы 


Текстовая константа записывается в виде: 
о 
Здесь Н — буква алфавита, служащая признаком константы тексто- 
вого типа; 

п — целая константа без знака, значение которой равно количе- 
ству символов, составляющих данную текстовую константу; 

НЕ... 1, — значение текстовой константы, представленной указан- 
ной записью, где каждое #, (і = 1, 2, ..., п) — любой символ, доступ- 
ный устройствам ввода-вывода данной ЭВМ. 

Пробел является значащим символом в текстовой константе. П р и - 
меры записи текстовых констант: 


Запись на ФОРТРА Не Значение текстовой константы 
ЭэННОМЕР НОМЕР 

1ЭНЗНАЧЕНИЯ , , ПЕРЕМЕННЫХ ЗНАЧЕНИЯ, , ПЕРЕМЕННЫХ 
4Н1234 1234 


Текстовые константы могут быть использованы только в операторе 
начальных данных РАТА (см. порцию 98, гл. П) или в списке факти- 
ческих параметров в операторе САГГ (см. порцию 122, гл. ПІ). 

Максимальная длина текстовой константы зависит от конкретной 
реализации языка. Например, при выводе на печатающее устройство 
длина текстовой константы не должна превышать размеров строки 
используемого устройства. и 

В памяти машины под текстовые константы отводится ряд после- 
довательно расположенных ячеек; в каждую ячейку помещается не- 
которое количество символов, определенное конкретной реализацией. 
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Задание. Запишите следующие последовательности символов 
в виде текстовых констант: 
НАЧАЛО, РЕЗУЛЬТАТ, ТАБЛИЦА! 123 


Порция 12 
Константы (продолжение) 


Задание. 1. Укажите, какие из приведенных ниже записей 
являются допустимыми для записей констант целого типа: 


л © аа, 11) — 0003 
Ор 090-700 12). 55.0 
д) 06) т 13) +- 005 

Д) Ое ОЗ ЕТ. 


5) +0 10) — 2,1: 10 15) — 00750 
24, ЗаНИНИ ЕВ и ниже числа в виде констант: 
а) целого типа: 
1) 0,00938 , 02) 345 000. 103 3) 3 450000, 10° 
4) 9 н 5) 0,2. 10+ 
б) вещественного типа 


3. Запишите ‘приведенные ниже числа в виде вещественных кон- 
стант в форме Е 


) 0 2) 500 3) 3,102 4) —955. 104 
Б) 243. 10 


4. Какие из приведенных ниже записей допустимы в качестве кон- 
стант в языке ФОРТРАН? Определите их тип и форму представления: 


1) В- 02 | _ 13) 00125 

2) 0,142 | 14) — 0.0Е 
8-2 15) 00195. 

4) 1.Е? 16) 11НВЕДОМОСТЬ ‚5 
5) 21Е! о: 17) -- 123Е?2_ 
6) 3.7526879305 18) 390.0001р6 
7) (6.4, —3.2) 19) 142. 

8) 15НСКОРОСТЬ, ‚КМ/ЧАС 20) 142 

9) 21.Е1 21) 142— Е? 
10) 31.2Е 125 29) 149.—-Е_2 
11) (972,1,31Е 10) | 23) 6Н85Е0.1 
12) 15 <- Б) | 24) 142.(— Е) 2 
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05) 149Е | 31) 142Е0 


26) ЗНМАССИВ _,А 32) —0 
27) (— 142) ЕЗ 33) - 0.0 
28) (142) ЕЗ 34) 542,0357218р5 
29) 4НА—ВУ 35) 5420351798650 — 9 
30) Е? _ 36) ЭНА == 4.22Е —4 
Порция 13 
Переменные 


Действия ФОРТРАН-программы могут применяться не только к 
константам, но и к значениям переменных. Переменные в языке—это 
некоторым образом обозначенные объекты, значения которых могут 
изменяться в процессе выполнения программы. 

Каждой переменной в программе или некоторым их упорядочен- 
ным группам, называемым массивами, ставится в соответствие назва- 
ние (обозначение, имя) — идентификатор. 

Идентификаторы в языке ФОРТРАН являются словами пользова- 
теля, выбираемыми согласно определенным правилам. Используются 
идентификаторы не только для обозначения переменных и их масси- 
вов, но и для обозначения других языковых объектов, о которых 
речь будет идти по мере изложения курса. 

Правила образования идентификаторов в ФОРТРАНе весьма про- 
сты: 

1. Идентификатор — это последовательность букв или цифр, пер- 
вым символом которой является буква. 

2. Общее число символов, составляющих идентификатор, не долж- 
но превышать шести. | 

Примеры идентификаторов: 


А САММАб 
А12 КЕАТ, 
А5ВЗ Е 

ВЕТА ТОМ 
КОРТЕ МАК 


Идентификатору переменной в машинной интерпретации соответ- 
ствует название фиксированного поля памяти, например адрес ячей- 
ки, а ее значением в каждый данный момент вычислительного про- 
цесса является содержимое данного поля, представляющее собой не- 
которую константу соответствующего типа. 

На упорядоченные группы данных — массивы—в языке ФОРТРАН 
накладывается следующее ограничение: они должны быть одного и 
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того же типа. Идентификатор, именующий массив переменных, назы- 
вается идентификатором массива. 

Введем понятие обращения к переменной. | 

Обращением к переменной называется извлечение ее значения 
или присвоение ей значения. 

При работе с массивами ФОРТРАН позволяет обращаться либо 
ко всем его элементам одновременно (что возможно только в операто- 
рах ввода — вывода), либо к отдельным его элементам. Обращение 
к массиву осуществляется посредством его идентификатора. Для об- 
ращения к элементу массива используется идентификатор этого мас- 
сива, за которым в круглых скобках указываются индексы, опреде- 
ляющие позицию данного элемента в массиве. Такая конструкция — 
идентификатор массива с последующими за ним в круглых скобках 
индексами — называется переменной с индексами. Язык допускает 
массивы, определяемые не более чем тремя индексами. При этом, если 
массив определяется двумя или тремя индексами, между ними ‘при 
записи переменной с индексами ставятся запятые. 

Примеры переменных с индексами: 

ых АЗ (12) 

КО5 (6,3) 
Х (2,Р‚,6) 
А23 (К,К--2) е, НЕ 

Как видно из примеров, в качестве индексов могут быть исполь- 
зованы константы (целые положительные), а также переменные (цело- 
го типа) и даже некоторые выражения (в нашем примере К-|?2). 

Таким образом, будем отличать два вида переменных — простые 
переменные, обращение к которым осуществляется посредством их 
идентификаторов, и переменные с индексами (или индексированные 
переменные), являющиеся элементами массивов, обращение к которым 
осуществляется посредством идентификаторов соответствующих мас- 
сивов, за которыми следуют в круглых скобках индексы. О масси- 
вах и переменных с индексами более подробно речь будет идти в третьей 
главе. | 

В ФОРТРАН-программе разрешается использовать пять типов 
переменных. Для обозначения типов переменных используются слу- 
жебные слова-спецификаторы: 


МТЕСЕК (целые) 

КЕАГ. (вещественные) 
РОЧВЕЕ РКЕСЗТОМ (повышенной точности) 
СОМРІЕХ _ (комплексные) 
ГОСІСАІ. (логические) 


Задание. 1. Назовите правила формирования идентифика- 
торов переменных. 
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2. Каково назначение идентификатора переменной? 
3. Каков смысл понятия обращения к переменной? 
4. Сколько типов переменных допустимо в языке ФОРТРАН? 


Порция 14 
Переменные (продолжение) 


Целые переменные 
$ 

Для целых и вещественных переменных имеется два способа ука- 
зания их типа: явный и неявный. Каждый из этих способов имеет силу 
только в той программной единице, в которой он определен. 

Для всех остальных типов переменных их тип должен быть задан 
явно в каждой программной единице. 

1. Если идентификатор переменной не описан спецификатором 
в данной программной единице и начинается с одной из букв 


БУК, М, М 


то он представляет переменную целого типа. Такой способ указания 
типа называется неявным. 

В табл. 4 приведены примеры допустимых и недопустимых иден- 
тификаторов целых переменных при неявном указании их типа. 


Таблица 
Конструкции, недо- 
П пустимые в качестве 
равильные идентификаторов 
наименования целых целых переменных Ошибка 
переменных при неявном задании 
типа 
КА АК Начальная буква недопустима для обозна- 
чения целой переменной; 
ома ПОМО 125 содержит более шести символов; 
МЕТКЕ 5МЕТК первым символом не может быть цифра; 
МІЗН МІ ФН содержит символ, не являющийся ни бук- 


вой, ни цифрой 


2. Для явного задания типа переменной используются указанные 
ранее спецификаторы типа, соответствующие пяти типам идентифи- 
каторов переменных, а именно: ПМУТЕСЕВ, ЮКЕАГ, РрООВІЕ РЮЕ- 
СІЅІОМ, СОМРІЕХ, ГОС]САГ.. | 

Если идентификатор переменной описан в программной единице 
спецификатором ІМТЕСЕК, то связанная с ним переменная в данной 
программной единице считается переменной целого типа, независимо 


от первой буквы ее идентификатора. 


21 


Пример явного описания типа целых 
переменных: 


ПМТЕСЕВ ХІЕТ, АОМ, ВІ, ВОЗ 


Приведенное описание означает, что переменные ХГЕТ, АОМ, ВІ, 


КОЗ будут использованы в данной программной единице в качестве 
целых. 


Задание. Определите, какие из следующих идентификаторов, 


менных: 


заданных неявно, допустимы в качестве идентификаторов пелых пере- 


а) МАС в) ХЗАМС д) 10Ма ж) КАТЕТ 
б) АМС г) ҚІ7 е) ІММА з) АІВ 


Порция 15 
Переменные (продолжение) 


Вещественные переменные 


Идентификатор вещественной переменной может быть описан дву- 
мя способами. 

1. Если первая буква идентификатора переменной отлична от В 
К, Г, М, М и переменная не описана в данной программной единице, 
то ее тип считается вещественным. Это неявный способ указания тина. 

Как легко теперь понять, при неявном задании типа переменных 


трансляторы ФОРТРАНа по первой букве их идентификаторов опре- 


деляют принадлежность переменных к целому или вещественному 
типу. В табл. 5 приведены примеры допустимых и недопустимых иден- 
тификаторов вещественных переменных при неявном их описании. 


Таблица 5 


Конструкции, недо- 
пустимые в качестве 
идентификаторов 
вещественных пере- Ошибки 
менных при неявном 
задании типа 


} 
— ооо 


Допустимые иденти- 
фикаторы вещест- 
венных переменных 


ХУ Х+У содержит знак, не являющийся ни буквой, 
ни цифрой; 

АТРНА КАТРНА начинается с недопустимой буквы; 

512Т15 5128Т15 содержит более шести .символов; 

С209 С2.09 содержит знак, не являющийся ни бук- 

. вой, ни цифрой; 

КО ИО] » » » 

ЕКРАМЕЗ „- ЕРАМЕ ф » » у 
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Ј 
| 
| 


2. Если идентификатор переменной в начале программной едини- 
цы описан спецификатором КЕАЕ, то такая переменная считается 
вещественной, независимо от первой буквы ее наименования. Таким 
способом тип переменной описывается явно. 

Пример явного описания типа веществен- 
ных переменных: | 

КЕАГ МАХ, КОМ, Ј, 12 


Переменные МАХ, КОМ, Ј, 12 объявляются вещественными. 
Задание. Определите тип переменных, заданных следующими 
идентификаторами, описанными неявно: 


1) МАТА; 7) АВІ; 13) ҚАС: 
2) КОПА; 8) АЗ; 14) С25В; 
ЗЭТӘТОР; 7020) 21: 15) ЕОВУТ; 
4) ВОБ 10) 25; 16) ОВС; 

5) ГУАМ; 11) ХЗ; 17) МАРД; 
6) ТУА; 12) 128; 18) МАВКА 


Порция 16 
Переменные (продолжение) 


Идентификация переменных 


В машинных программах идентификаторам переменных соответ: 
ствуют имена полей памяти (адреса ячеек), а значениям переменных — 
содержимое этих полей. Присвоение начальных значений переменным 
и изменение их значений осуществляется в результате выполнения 
операций ввода данных или специальной операции, называемой опе- 
рацией присвоения. Последнее присвоенное (или введенное) значение 
называется текущим значением, или просто значением переменной. 

Возможность использовать до шести символов для наименования 
переменных представляет определенные удобства: при составлении 
выражений идентификаторы могут быть выбраны так, чтобы они ука- 
зывали на естественный смысл величин, входящих в выражение. 

Например: УОГТ$, ОНМ, ЕАВАР, ЕОБСЕ, АМРЕКЮ, ВЕС, 
ГЕМОТН ! 

При этом нужно следить за соблюдением правил выбора первой 
буквы для обозначения целых или вещественных переменных, а если 
удобными оказываются идентификаторы, первая буква которых не 
соответствует данному типу, то их необходимо описать спецификатором 
соответствующего типа. | 


і Напоминаем, что в идентификаторах переменных можно использовать буквы 
только латинского алфавита. Поэтому наименования ВОЛЬТ, СОПР, АМПЕР ит. п. . 
недопустимы. 
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Например, идентификаторы 
_МА$$, КАРРА, МОРОГ,, ГАМСЕ 


не могут быть неявно заданными идентификаторами вещественных 
переменных. Но вместо явного их задания в спецификации ВЕАГ, 
можно добавить к ним впереди одну букву, определяющую соответст- 
вующий тип переменной: 


АМАЗ$, ХКАРРА, ВМАТК, ЕГАМОСЕ — для вещественных, 
_ МА$$, КАРРА, МАТРІХ, ГАМСЕ — для целых. 


Заметим, что злоупотреблять «длинными» идентификаторами, уве- 
личивающими число символов, составляющих программы, и тем са- 
мым вероятность внесения в них ошибок при перфорации, не рекомен- 
дуется. 

Внимание! В дальнейшем при изложении материала будет подра- 
зумеваться, что речь идет об одной программной единице и что иден- 
тификаторы целых и вещественных переменных описаны неявно, если 
противное не будет оговорено. | 

Задание. 1. Укажите, какие из следующих последователь- 
ностей символов допустимы в качестве идентификаторов целых пере- 
менных, вещественных, а какие вообще не допустимы в качестве иден- 
тификаторов переменных. 


Ао, ОД, А—2, Е(Х), А(2), АЭВС, АВСР71А, ААВ, АВВ, АВ.АС. 
А?ВС/, АВ+АС, АВАС, В/АС, А*В, О.ГА, 117, (ВАС), Е2, БО, ЕМО. 
ВЕСІМ, ЅҰІТН, М125, 125М, АКСЕ, АЕСОЕ, 121 ВІМ№ОЗ. 


Заполните в своей рабочей тетради следующую таблицу: . 


т. 
Идентификаторы целых Идентификаторы веществен- Последовательности символов, 
переменных ных переменных недопустимые в качестве иденти- 
фикаторов 


2. Определите тип каждой из приведенных ниже констант и пере- 
менных: 


а) Х50ВІ з) ОРЕКМО 
6) 0.3333 и) (21.103, — 1275.1) 
в) ЈАМЕЅ к) І“ІрЕ 
г) (52.80, -- 2.75) л) 273546124.р 4-2 
д) КООМТ м) 4НМАМЕ 
е) 5280.1 н) ТНСТУДЕНТ 
ж) МАЅ5 о) 4НКУРС 
р) 5555 


‚ 24 


| Порция 17 
Переменные (продолжение) 


Логические, комплексные 
и повышенной точности переменные 


Идентификаторы логических, комплексных и повышенной точно- 
сти переменных (ГОСІСАІ, СОМРГЕХ, РООВЕЕ РВКЕСІЅІОМ) со- 
ставляются по общим правилам написания идентификаторов перемен- 
ных, т. е. содержат от 1 до 6 буквенно-цифровых символов и начина: 
ются с буквы. 

Идентификаторы логических и комплексных переменных и пере- 
менных повышенной точности обязательно должны быть описаны В 
той программной единице, в которой они использованы, специфика- 
торами соответствующего типа. Язык не допускает неявного указания 
типа этих переменных. | 

Примеры описания типов переменных: 


РООВІЕ РКЕСІЅІОМ.РХ 15, ВАС, ЕМ, МІ, А 
СОМРГЕХ С, В, В, \ 
ГОСІСАГ, МЕБ, У, [ОС 


Задание. Опишите переменные ОВ, О$, ОТ как комплексные; 


АІ, А2, АЗ как логические и АІТ, В ПМС как переменные повышенной 
точности. | 


Порция 18 


Переменные (продолжение) 
Текстовые значения переменных 


Среди переменных, выделенных в языке ФОРТРАН, нет перемен- 
ных текстового типа. Это объясняется тем, что действия над текстовы- 
ми переменными в языке весьма ограничены; они сводятся к вводу- 
выводу текстов, используемых для придания наглядности выводимой 
информации, для выдачи заготовленных комментариев и реплик в ди- 
алоговых системах. 

Значения текстовых констант могут принимать переменные любого 
из имеющегося в языке типов (целые, вещественные, повышенной точ- 
ности, комплексные, логические). При этом, поскольку комплексным 
значениям и данным повышенной точности обычно отводятся в памяти 
поля двойного размера, переменным этих типов можно присваивать 
текстовые значения размера, соответственно большего в два раза. 
Присвоение текстовых значений переменным осуществляется опера- 
тором РАТА (см. порцию 98, гл. 11) или операторами ввода. 

Задание. І. Сколько типов данных имеется в языке ФОРТ- 
РАН? Перечислите их. 


Ў р 


2. Сколько типов переменных имеется в языке ФОРТРАН? Пере- 
числите их. — | 

3. К какому типу должен быть отнесен идентификатор для того, 
чтобы можно было присвоить ему значение текстовой константы? 


Порция 19 
Арифметические операции 
В ФОРТРАНе определены следующие арифметические операции: 


сложение, вычитание, умножение, деление и возведение в степень, 
для которых приняты обозначения: 


Сложение Ь 
Вычитание — 
Умножение ж 
Деление / 


Возведение в степень. жж 


Все остальные операции (например, извлечение квадратного корня) 
должны быть сведены к этим пяти операциям или определены с по- 
мощью функций, о которых будет идти речь ниже. 

Задание. Сколько арифметических операций имеется в ФОРТ- 
РАНе? 


Порция 20 
Выражения 


В языке ФОРТРАН допустимы два вида выражений: арифметиче- 
ские и логические. 

Термин «выражение» используется в ФОРТРАНе в обычном алгеб- 
раическом смысле. Выражение может состоять из констант, перемен- 
ных, переменных с индексами, указателей функций (например, 
УМ (Х--2.1)), которые могут быть связаны между собой символами 
операций и скобками. Каждая из перечисленных компонент являет- 
ся частным случаем выражения. Выражение — это правило для оп- 
ределения одного числового или логического значения. 

В состав арифметических выражений могут входить: 

числовые константы 

простые числовые переменные 
числовые переменные с индексами 
указатели функций | 

Первичное арифметическое выражение — это константа, перемен- 
ная, указатель функции или выражение, взятое в скобки. 
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1а М ао 
РРО ВНМО ПРЫЩИ 


Арифметическим выражением называется любое первичное ариф- 
метическое выражение или последовательность первичных арифме- 
тических выражений, соединенных надлежащим образом знаками 
операций. 

Если в выражение входят переменные, то при определении соот- 
ветствующего значения используются текущие значения этих перемен- 
НЫХ. 

Например: 


Выражение Ёў | Значение выражения 

М24 Текущее значение целой переменной М24 

3.14159. Вещественная константа 3,14159 | 

А-- 2.1828 Сумма значения вещественной переменной А и кон- 

станты 2.1828 

ОВ —ҮТ Разность значений вещественных переменных ОВ и 
УТ 

Х»-УАУ Произведение значений переменных Х и УАУ 

ЕКК/б.2832 Частное от деления значения вещественной перемен- 
ной ЕКК на константу 6,2832 

С] 2 Квадрат значения переменной С] 


Задание. Напишите следующие выражения на ФОРТРАНе: 
а) х + у- 2? 

б) ах + Би + сг 

в) В + 5? 


Порция 21 
Правила записи арифметических выражений 


При написании арифметических выражений программист должен 
соблюдать следующие правила. 

Правило 1. Недопустима последовательная запись двух знаков 
операций. 

А*—В — выражение не имеет смысла. 
А*(—В) — допустимо. 

Правило 2. Скобки в выражениях, как это общепринято в мате- 
матике, используются при необходимости для указания очередности 
выполнения операций; допускается использование лишних скобок. - 

Используя скобки при составлении выражений ФОРТРАНа, сле- 
дите за тем, чтобы каждой левой (открывающей) скобке всегда соот- 
ветствовала правая (закрывающая) скобка. | 

Например, в ФОРТРАНе недопустимо выражение (А-+-В)*С), т. к. 
в нем нарушено соответствие между скобками. Его следует записать 
в виде: ((А--В)*(). | 
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Правило 3. Для определенности выражения вида Е следует 
писать со скобками: (А»*В)++С или Аж*(В»жС) соответственно тому, 
что необходимо вычислить. 

Задание. Напишите выражения на ФОРТРАН, соответст- 


вующие следующим формулам. При необходимости используйте скоб- 
КИ. 


ужу мы муз 
а 
6) хи а поа 
х? 2 2 4 

та ОСУ 1 
в+а 
а 

Порция 22 
‚ Правила записи арифметических выражений 
(продолжение) 


Правило 4. Если очередность выполнения операций в выражении 
не определена скобками, то операции выполняются в следующем 
порядке: 

1. Вычисление значений функций !. 

2. Возведение в степень. 

3. Умножение и деление. 

4. Сложение и вычитание. 

Следующие два выражения эквивалентны: 

Ежа А«В--С/О 

(Е»2)-+-(А*В)--(С/р) 

Правило 5. Внутри последовательностей умножений и делений, 
сложений и вычитаний, в которых порядок операций не определен 
скобками, действия выполняются подряд слева направо. 


а $ Т--В 


Поэтому выражение $/Т»ЮК означает 
означает (5—Т)--К, но не $—(Т-ЕК) 


в =. 


1 В языке ФОРТРАН допускается использование нескольких типов функций 
(они будут рассмотрены в гл. ГУ). Указателем функции называется конструкция, 
состоящая из идентификатора функции, за которым в скобках следуют аргументы 
(называемые в языках программирования фактическими параметрами), отделенные 
друг от друга запятыми. 
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Правило 6. ФОРТРАН накладывает некоторые ограничения на 
использование данных различных типов в одном и том же ‚ 
ческом выражении. 

Таблица 6 
Значение типа арифметического выражения для операций +, —, *, / 


Тип 2-го операнда 
— ай 


Повышенной Логи- 


Целый Вещественный точности Комплексный в 


8, 


Тип 1-го операнда 


—— — 


Целый Целый 


т 


—— - —. 


—_. === 


Вещественный Вещественный | Повышенной | Комплексный 
| точности 


И О ИН О ЕЕ Е ЕЕЕ ЕЛЕНИ Я ИН СЕНА 
Повышенной поч = Повышенной Повышенной 
НОСТИ ТОЧНОСТИ точности 
ООО ЗО ЗОО ООО 
Комплексный | — Комплексный | — Комплексный | — 
Логический | — — | — в 
И И Пе таа атаа а АСЕЕВ 
Таблица 7 


Значение типа арифметического выражения для операции **. 


Тип показателя 


УОФМ— ыыы 


Тип основания Повышенной Комп- | Логи- 
Целый Вещественный точности лекс- | че- 
НЫЙ ский 
И | 6ннн. 
Целый Целый | -— | — рых ана 
ИЕНА Ш ААА БАВИО ОТ ВИВА ОТН ЗА ЫИ 
Вещественный Вещественный | Вещественный | Повышенной 
точности 
Повышенной точ- | Повышенной Повышенной Повышенной 
ности ТОЧНОСТИ ТОЧНОСТИ | точности 
Комплексный · | Комплексный | Комплексный | == | 


— ————. == 


И И Бай ы 
Логический | | а | а 
О 6 и 7 иллюстрируют правила определения типа о 
результата арифметических операций. Недопустимые сочетания ком-, 
понент отмечены в таблицах знаком «—. 


Как видно из таблиц, с данными целого типа в арифметическом . ВЫ- 
ражении не могут быть использованы данные никакого другого типа.. 
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Исключение составляет операция возведения в степень: данное любого 
числового типа может быть возведено в целую степень. Кроме того, 
данные комплексного типа могут встречаться в одном выражении толь- 
ко с данными вещественного и комплексного типа, а также не могут. 
быть использованы в качестве показателя степени. 

Правило 7. Скобки в выражениях обозначают очередность выпол- 
нения операций (а также используются для указания аргументов функ- 
ций, о чем будет речь далее). В частности, между скобками символ 
умножения опускать нельзя. Так, выражение (А»В)(С»+О) недопусти- 
мо в ФОРТРАНе. Оно должно быть написано в виде (А*В)*(С*р). 

В табл. 8 приведены примеры арифметических выражений в обще- 
принятой записи и на ФОРТРАН. 


Таблица 8 


Запись неправильная или не 


Соответствующая запись 
соответствующая исходной 


Общепринятая запись 
на ФОРТРАНе 


выражения 


аб АғВ АВ (пропущен знак операции) 
Ар Х»+(—Ү) Х+» — У (два символа опе- 
| раций стоят рядом) 


а ((А + В)/(С -- Р))+*(М—1)| (А - В)/(С -- Б))ж*М —1 
Е = е 
с— 
04-10 В- 10. В-- 10 (компоненты опера- 
ции сложения разного типа) 
Ва Вғ+(С +- 2.0)*2 В**С +4 2. (= 6° 4- 24) 
2.0 АғВ/(С*р) А*В/Сғр [- а2050 

с: 4 о 
| а и (А + В)/С)*»4.3 (А 4- В)/С++4.3. (= а 
416 (2 -- а) —а4] Р+(В*(Х+*2 -- А) — р) |Р»(В»+(Х++2) -- А) — 0, (нет 


соответствия между скобками) 


Задание. 1. В каждом из следующих выражений укажите по- 
следовательность выполнения операций: 


а) АНВ-С в) Х+«У-- А/В 
б) АхВ--Сғ*2 | Г) А+В-+-С+р + Ха3 


2. Даны выражения на ФОРТРАНе: 
а) А--В/С+р б)А+*2--В/С*р 
30 


Укажите, каким из записанных ниже выражений ОНИ соответствуют 
]) 29) | 
а 4-Б 2 ра 
а) ее а) а с 


ба +4 она 


3. Какие 1 из приведенных ниже записей являются арифметически- 
ми выражениями на ФОРТРАНе? ша тип их значений, 


1) А—1 
2) М+0.25 
3) 9.81-- Ажж2 
4) А-В/С—В»К 
5) (А-В) МА ВУК (ко / Анно Уно + 9}, жж]. 
6) (15 325М)—(ҚеЈ—1 172) 2/(М-- №) 3 
7). ХУ+Ү/(Ү»2-4-1, 0) 2 (092 —Ү 9) ао 
8). а аиа а 0:4) /(Х —7) 
9) 5+А 
10) А/Б 
11) ХМ 
12) М7 
13) 12—К--342М-- 7] 
14) 18А + 17«К 
15) 18.+А -4-17.+В 
16) 18+Г,-- 17=К. 
17) (18=Г.-- 17+К)/(7-- ГМ 
18) (2*+А--3З=В)=9.5 
19) (2+А-- З.В) 
20) (К+- 10) 
21) (М--Ч»3)/(Х—3.жУ) ә 
_ 22) (К--Г)»=Х 
23) 2++К. 
24) КҚ»2 
25) (Кз=Х Мау) 


Порция 23 


Правила записи арифметических выражений 
(продолжение) 


Задание. Ниже приведены общепринятые записи выражений 
(слева) и соответствующие им арифметические выражения на ФОРТ- 
РАНе, каждое из которых содержит по меньшей мере одну ошибку. 
Найдите ошибки и напишите правильные выражения. 


а) х + (30)? . Х + 3.+Ү 2 

9-х 5 Х--(У—5)/У +2 

у“, ВІ -СР/В«В ІН 

у) (крах з.1416)ур-- 2 
Я а--1 

д (222. (А4-ВеС(АнС)„А+-1) 


ей ееанаине- у» 


е) 213 


Порция 24 
Логические выражения 


Кроме арифметических выражений, т. е. выражений, которые при- 
нимают числовые значения, в ФОРТРАНе допускаются также логи- 
ческие выражения, принимающие значения логических констант 
‚ТВОЕ. или .ЕАТЗЕ. „Логическое выражение — это правило для 
вычисления одного логического значения. 

В состав логических выражений могут входить: 

логические константы 
логические переменные 
элементы логических массивов 
указатели логических функций 
символы логических операций 
отношения 

скобки 

Первичными логическими выражениями являются логические кон- 
станты, логические переменные (простые или с индексами), указатели 
логических функций, отношения и любые как угодно сложные выра- 
жения, заключенные в скобки. · | 
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Задание. 1. Что называется логическим выражением? 
2. Назовите элементы языка ФОРТРАН, которые могут входить 
в состав логических выражений. 


Порция 25 


Логические выражения (продолжение) 


Логические операции 


В табл. 9 приведены логические операции, допустимые в языке 
ФОРТРАН, и таблица истинности результатов. Буквами а и 6 обозна- 
чены операнды типа ГОС]САГ.. 

Задание. Перечислите логические операции, ‚принятые в 
ФОРТРАНе. | зе 


Таблица 9. 


Обозначе- 
ние логи- 
ческой 
операции 


Пример 
Название операции | использова- Таблица результатов 
ния операции 


а .МОТ.а 
Логическое отри- 
. МОТ. | цание «не» р .МОТ. а ТВОЕ. .ЕАТЅЕ. 
.РАТІ8Е. ТРОЕ, 
вттиттттттиттыГЕм,кы=Ыы,;..,.+а.‚.‚...,А,У/,/АААЯ® и ”УЬ”У”УУ”Ь”У”Ь”Ь””Ь”Ь”Ь”Ь”Ь»”»ЬЬ ' 
а 
Логическое умно- ТЕСЕ. | ҒАТ5Е 
.АМО. | жение «и» (конъ- | а.АМО.6 
° | юнкция) ТВОЈЕ: | ТВОЕ. | РАІ Е. 
ЕАТЗЕ. | ЕАТЗЕ. | „РАТЕ. 
т  БььрБьь к къ ь Б-ЪЪБЪ БУ 4; 
р 
а 
| Логическое сло- ТВОЕ. | ҒАІЅЕ 
‚ОК. | жение «ИЛИ» а.ОВ.Ь = | 
(дизъюнкция) _| ТВОЕ. | ТВОЕ. | ВОВ. 


ЕАГЗЕ. | ТВОЕ. | ‘РАТЕ. 


9 5—1609 | те 33 


Порция 26 
Логические выражения (продолжение) 


Отношения 


Отношением называется два арифметических выражения, связан- 
ные операцией отношения. 

Отношение является частным случаем логического выражения и, 
следовательно, может принимать значение .ТКОЕ. или .ЕАГЗЕ.. Зна- 
чением истинности отношения является .ТКОЕ., если условие, выра- 
женное операцией отношения, выполнено, и .ЕАТЅЕ., если это усло- 
вие не выполняется. 

В табл. 10 приведены знаки операций отношения, допустимые 
в языке ФОРТРАН, а также правила получения значений истинности 
их результатов. Буквами си 4 обозначены арифметические выражения. 


Габлица 10 
Операция Пример | Результаты выполнения операции 
отноше- Название операции использова- 

НИЯ ния операции ТВОЕ. .ЕАГЗЕ. 
Г: Меньше с. 54 “песли с < а если с > ӣ 
ГЕ. | Меньше или равно с.ЬЕ.а если с$ 4 если с> ӣ 
ЕО? Равно с.ЕО.а если с == й если с = а 
.МЕ. Не равно с.МЕ.а если с = ӣ если с = ӣ 
Ат. Больше с.СТ.ӣ если с> ӣ если с« й 
ав; Больше или равно с.СЕ.а если с> ӣ если с<а 


Таблица 11 
Допустимые сочетания операндов операций отношения 


Тип правого операнда 


Тип левого операнда Повышенной 
Целый Вещественный точности Комплексный 
Целый -|- — — = 
Вещественный — -|- —- /— 
Повышенной точности — ++ +- — 
Комплексный — — — — 


В табл. 11 знаком -- отмечены допустимые комбинации типов ариф- 
метических выражений (операндов), связываемых операциями отно- 
шения. 
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В РРР Дабиванень а оо ола очбняя 


нар ея < 44 > 


Ниже приведены примеры допустимых и недопустимых записей 
отношений: 


Допустимые Недопустимые 

Х.ЕО.2. ЕТ. К 

АзВ.ГЕ.С ІСТ.5.2 

АВ-—Юр»?2 1Е.0.0 М.МЕ.О 

Х.СТ.5.3 АГ.ЕО.1 | Е 


Примеры отношений: 5 

1. Отношение у < 2х -- 1 на ФОРТРАНе записывается в виде: 
У.ГЕ.2.*Х--1.0, и принимает значение ТВОЕ. для всех пар (Х,У), 
для которых выполняется указанное неравенство; при геометриче- 
ской интерпретации на плоскости такими парами являются коорди- 
наты всех точек, лежащих на прямой у = 2х + 1 и ниже ее. 

2. Отношение х >> 0, записываемое на ФОРТРАНе в виде: 
Х.ОТ.0., выполняется для точек правой полуплоскости, исключая 
осв 

3. Отношение 1° = х (на ФОРТРАНе — Ү**2.Е0.Х) принимает 
значение .ГКОЕ. только для точек, которые лежат на параболе и? = х. 


Задание. Перечислите операции отношения, принятые в 
ФОРТРАНе. 


Порция 27 
Логические выражения (продолжение) 


Правила записи логических выражений 


Правило 1. Для указания необходимой последовательности вы- 
полнения операций в логическом выражении можно употреблять 
скобки. Допускается использование лишних скобок. 

Например: | 

((В—2.15)**2).ГТ.(В--С)=2.0 


Правило 2. Внутри скобок, а также если скобки вообще отсутст- 
вуют, операции выполняются в следующем порядке: 
1) арифметические операции в последовательности: 
вычисление значений функций, 
возведение в степень, 
умножение и деление, 
сложение и вычитание; 
2) операции отношений; 
3) логические операции в последовательности: 


.МОТ. 
.АМО. 
ОК. 
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Правило 3. Логические операции могут использоваться только 
с логическими выражениями. | 
_ Два символа логических операций не могут стоять рядом. Исклю- 
чение составляют последовательности операций .ОЮ. (МОТ. и .АМ№Р. 
.МОТ. Пусть переменные 1081 и 10909 описаны спецификатором 
ГОСТСАГ; тогда следующие выражения являются логическими: 
(А-З.14)*С.ГТ.В-ЕС.ОВ.Р.ЗЕ.О-В.АМО.ГОС1 
ГОСІ.ОБ..МОТ.ГОС2.АМР.Х.ЕО.0.0 
Порядок выполнения действия в этих выражениях для наглядности 
можно указать с помощью скобок: 
(((А.--3.14)*С) ІТ. (В-+-С)).ОБ .(Р.СЕ.(0--В).АМЮО.1081) 
ГОСІ.ОК.((.МОТ.1О08С2).АМР”.(Х.ЕХ.0.0)) 


Задание. Обозначьте скобками порядок выполнения действий 


в следующем логическом выражении: 


Х**2.СЕ.(А—С)**3.АМО.В*Х.ЕО.2.75*Х**0 


Порция 28 
Логические выражения (продолжение) 


Рассмотрим примеры использования логических выражений в 
языке ФОРТРАН. 

Пример 1: 

Определим на плоскости ХОҮ область, содержащую все те и только 
те точки (Х, У), в которых логическое выражение 


Хж2--Ү2.СТ.1.0.ОВ.(Х.СЕ.0.0.АМО.ҮЛЕ.0.0) 


принимает значение .ТКОЕ.. 
Укажем порядок выполнения операций в заданном выражении. 
1. Вычисление значения арифметического выражения Х**2-ү**9 
2. Вычисление значений истинности отношений 


У ЕА 
Х.СЕ.0.0 
Ү.ГЕ.0.0 


З. Вычисление истинности выражения (Х.СЕ.0.0.АМР.Ү.ІЕ.0.0) 

4. Вычисление истинности заданного выражения. 

Первому из отношений, приведенных в п. 2, удовлетворяют точки, 
лежащие вне круга единичного радиуса с центром в начале координат, 
исключая точки его границы. 

_ Второму из них удовлетворяют точки правой полуплоскости ХОҮ, · 
включая ось ОҮ. | 
_ Третьему — точки нижней полуплоскости, включая ось ОХ. . 

Согласно определению логической операции конъюнкции (Л) вы- 

ражение, приведенное в п. 3, будет истинно для всех тех и только тех 
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точек (Х, У), которые принадлежат одновременно правой полуплоско- 
сти и нижней полуплоскости ХОУ, т. е. для всех точек, принадлежа- 
щих правой нижней четверти плоскости (ТУ квадранту) ХОУ, включая 
ее границы. 

Искомая область изображена на рис. 2 (область заштрихована); 
граничные точки области, лежащие на осях координат, принадлежат 
этой области, а лежащие на окружности не принадлежат ей. 


у 


Рис. 2 Рис. 3 Рис.. 4 


Примечание. Следует обратить внимание на неединственность опи- 
сания области с помощью логического выражения. Так, выражение 


МОТ .(ХІТ.0.0.ОК.Ү.ОТ.0.0.).ОВ. Ха Ү»9.0Е.1.0 
ИЛИ Р 
МОТ .(Х ІТ.0.0.ОВ.Ү.ОТ.0.0).ОВ. М№ОТ.(Х+94-Ү»2 1.1.0) 


описывают ту же область, что и заданное в примере 1 выражение. 
Пример 2. | 
Рассмотрим логическое выражение 


Х++24-Үз2.Е0.1.0.0ОВ.(Х АТ.0.0.АМО.У.ГЕ.О.0) 
представляющее собой дизъюнкцию двух компонент: 
Х»ж2-- У+«2.ЕО.1.0 и (Х.СТ.0.0.АМ”О.ҮТЕ.0.0) 


Не трудно убедиться в том, что область, состоящая из всех тех и 
только тех точек, для координат которых заданное выражение прини-: 
мает значение .ТКОЕ., является областью, изображенной на рис. 3 
и включающей точки единичной окружности, но не включающей гра- 
ничные точки, принадлежащие координатным осям. . ый 

Задание. 1. На рис. 4 заштрихована область, ограниченная 
прямой У = Х и параболой У? = Х. Составьте логическое выраже- 
ние, принимающее значение .ТВОЕ. во всех тех и только тех точках 
плоскости ХОТ, которые принадлежат заштрихованной области, 
включая ее границы. гаа н" 

2. На рис. 5 заштрихована область, границами которой являются 
ось ‘ОХ ‘и парабола У = — Х?. Составьте логическое выражение, 
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принимающее значение .ТКОЕ. во всех точках этой области, включая 
криволинейную границу и исключая границу, лежащую на оси ОХ. 

З. На каждом из рис. 6—8 изображена некоторая (заштрихован- 
ная) область. Определите, какие из этих областей состоят из тех и 


! 
Рис. 6 Рис. 7 Рис. 8 


только тех точек, для координат которых заданные выражения при- 
нимают истинные значения: 


а) (Х**2--У**9.СЕ.1.0.АМО.Х.ТТ.0..АМО.У.СТ.О.).ОВ. 
(Х**2--у**0.ЕО.1..АМО.(Х.СТ.0.0.0В.УТТ.0.0)) 

6) Х**2--У**9 1Е.1.0.О0В.Х.СЕ.О.0. Е.О. 

в) .МОТ.(Х**9--у**9 1Т.1.0.ОВ.Х.СТ.О.0).ОВ.Х.ЕО.0.0 


Порция 29 
Элементарные функции 


В ФОРТРАНе предусматривается возможность использования не- 
которых элементарных функций, таких как 

ӘІМ(А) — синус, аргумент А вещественный в радианах, 

СОЅ(А) — косинус, аргумент А вещественный в радианах, 

АГОС(А) — натуральный логарифм, аргумент А вещественный, 

ЗОКТ(А) — квадратный корень, аргумент А вещественный, 


АВ5(А) — абсолютное значение, —— —»— ——, 
АТАМ(А) — арктангенс, ар бд 
ЕХР(А) — экспонента, т 


Если, например, нам нужно записать квадратный корень из 
(0° — 4ас), то мы просто напишем: 


ЗОКТ(В-«2—4.+А»С) 


Аргумент указанных функций может быть любым арифметическим 
выражением с тем ограничением, что этот аргумент должен быть ве- 
щественного типа. Значение функции тоже будет величиной вещест- 
венного типа. 
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Важно помнить, что аргумент функций всегда должен быть заклю- 
чен в скобки, даже в том случае, когда он выражен одной буквой. 
Например, ѕіп х на ФОРТРАНе следует записать в виде: ЗИМ(Х). 

Задание. Запишите на ФОРТРАНе следующие выражения: 


а) У аз -|- Иа р 


б) соѕо 4 ѕіпа 


ИТОГОВОЕ ЗАДАНИЕ 


1. Запишите приведенные ниже числа в виде констант: 
а) в форме Е 

6) в форме Е 

в) в форме Ш (констант повышенной точности) 

г) в форме текстовых констант 


1) 0,178345; 2) 78,2537; 3) 1839; 4) 65921: 5) 3421 

2. Представьте следующие комплексные числа в виде комплексных 
констант ФОРТРАНА: : 

1) 27321 — 1321897; 2) 27321; 3) — 1321897. 


З. Какие из приведенных ниже записей можно рассматривать как 
идентификаторы: 


1) 7503У; 2) 0У735; _.3) 9753\12; 
4) ОУ; 5) СИЛА; 6) С13; 
Т) СКОРОСТЬ; 8) 84; 9) 2Х5. 


4. Представьте в виде арифметических выражений на ФОРТРАНе 
следующие выражения: 


01—55 +2; 0) оёх и 7,38 — 84—23; . 
9 2—0 А 
2) = ои Т) |а| · [5 | соѕо; 
3) (х— у) зіпх + (х8 + 13) юх; 8) а + а Иа 
х : З х Ы о 
4) 7925 + л +5) ѕіп? х; 9) Е - 36 —- 15,4х 3, 


хо х —х\2 аз 
5) 2) + (+), т — ши УТ". 
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5. Представьте в виде логических выражений на ФОРТРАН? сле- 
дующие высказывания: 

аз р еа: З 

2) Р о) УР с 55 Л ХО 

3) зіп х < соѕх \/ 6 < 1 


ЕВ ОИ ао ао 
5) |а| | | | а | е 
6] а а Маа Ус Ао 
7) 0 — 40с > 0 Л с> 0 У а< 6 


6. На каждом из рис. 9—11 изображена некоторая (заштрихован- 
ная) область. Определите, какие из этих областей состоят из тех и 


- Рис. 9 


только тех точек, для координат которых заданные выражения при- 
нимают значение .ТЮОЕ.. 
а) (Хнж2-- Ужж2.ГЕ.1..АМО.У»2.ГЕ.Х).ОВ.Х +2 -- У+ь2.ЕО.1. 
.ОК.У»*2.ЕО.Х 
6)..МОТ.(Ха*2-РУ+2.ЕЕ.Г.).АМР.Х.ГЕ.0:0.АМО.У.СТ.О:0 
в) .МОТ.(У.ГЕ.(—Х++2).ОВ.У.СЕ.0.0).ОВ.Х.ЕО.0.0 
_ Г. Составьте логическое выражение на ФОРТРАНе, принимающее 
значение .ГКОЕ. во всех точках заштрихованной области, изображен- 
ной на рис. 12 и включающей свои граничные точки. 


Глава П 
Операторы языка ФОРТРАН . 


Порция 30 
Оператор присвоения 


Элементы языка ФОРТРАН, о которых шла речь в главе І, ИСПОЛЬ- 
зуются при составлении операторов, из которых строятся исходные 
программы. Одной из наиболее употребительных групп операторов 
ФОРТРАНа являются операторы присвоения, с помощью которых 
вычисляются новые значения переменных. 

Знак «=» используется в ФОРТРАНе для обозначения операции 
присвоения и истолковывается не так, как в элементарной алгебре. 

Рассмотрим, например, запись: 


КҚ=К+1 


В алгебре эта запись не имеет смысла. Действительно, если К 
имеет значение, равное 2, то получается равенство 2 = 2 + 1, т. е. 
2 = 8. 

В алгебре обычно знак «=» означает «равняется» и, следовательно, 
все то, что стоит слева от этого знака, должно иметь то же числовое 
значение, что и справа. | 

В языке ФОРТРАН знак «=» имеет следующее значение: вычислить. 
значение выражения, стоящего в правой части оператора, и заменить 
им прежнее значение переменной, стоящей в левой части. 

Таким образом, оператор А = В + С — это предписание вычис- 
лить сумму значений переменных Ви Си заменить прежнее значение 
переменной А. Оператор К = К + 1 — это предписание увеличить , 
значение переменной К на единицу. | 

Когда мы говорим: «значение переменной В», то мы имеем в виду 
последнее значение, которое было присвоено переменной В перед 
началом действия данного оператора. 

В приведенном ниже примере представлены последовательно рас- 
положенные в программе операторы 


М5 


После того, как вычислительная машина выполнит эти операторы, 
переменной М будет присвоено значение 20. Посмотрите, как это 
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происходит: вначале М присваивается числовое значение 3, т.е. в ячей- 
ку вычислительной машины, отведенную для переменной М, записы- 
вается число 3. Выполнение второго оператора означает следующее: 
значение, присвоенное переменной М, умножается на 2 и к получен- 
ному результату прибавляется число 14. 

Окончательный результат 20 становится новым значением М, за- 
меняющим первоначальное значение 3. тя 

Таким образом, если идентификатор какой-либо переменной встре- 
чается и в левой и в правой частях оператора присвоения, то к момен- 
ту выполнения данного оператора этой переменной уже должно быть 
присвоено некоторое «старое» значение, которое и используется при 
вычислении значения выражения, составляющего правую часть опе- 
ратора; .вычисленное значение правой части присваивается идентифи- 
катору переменной, составляющему левую часть оператора, т. е. 
становится «новым» значением этой переменной. | 

Задание, Считая, что приведенные ниже операторы выпол- 
няются в указанном порядке, вычислите значение, которое будет при- 
своено переменной У после выполнения всей последовательности опе- 
раторов: 


Д9) 

В 222180) 
ФЕ 

о 

У = АХ «2 В*Х-С 
У = 


Порция 31 
Оператор присвоения (продолжение) 


В задаче приводится последовательность арифметических опера- 
торов, которые выполняются в указанном порядке. Выполняя первый 
оператор, А == 2.0, машина присвоит переменной А значение 2.0. 
Таким же образом следующие три оператора присвоят новые значения . 
переменным В, Си Х. 

Значение Х после выполнения указанных в примере команд равно 
2.0 


Выполняя последний оператор 
Ү=А*Х»2 ВХС, 
машина произведет все указанные в выражении операции над только 
что полученными значениями переменных. Выражение вычисляется 
в следующем порядке: Х»*2 (результат 4.0); А»4.0 (результат 8.0); 
В»Х (результат — 6.0); 8.0--(—6.0)--(—2.0) (результат 0.0). Затем 
значение 0.0, полученное при вычислении выражения, присваивается" 
переменной Ү. При выполнении оператора присвоения меняется толь- 
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ко значение переменной, стоящей в левой части. Все переменные, 
входящие в правую часть оператора, сохраняют прежнее значение. 

Задание. Вычислите значение Х, выполняя следующую после- 
довательность операторов: 


В = 3.7 
В'== 20 
мА = 30 
Х = Аж«В--Ю«В-РА»В 
Х = 


Порция 32 
Оператор присвоения (продолжение) 


Арифметический оператор присвоения 


В ФОРТРАНе имеется три типа операторов присвоения: арифме- . 
тический, логический и оператор присвоения метки. 

Ниже описаны правила записи арифметических операторов при- 
своения. | 

1. Левая часть арифметического оператора присвоения ФОРТРАНа 
(слева от знака «=») должна быть идентификатором переменной (про- 
стой или с индексами) одного из допустимых в языке числовых типов 
и не может быть никаким другим выражением или идентификатором 
массива. Левая часть арифметического оператора присвоения не может 
содержать знаков операций и не может быть константой. Поэтому за- 
запись 


Х =АМ--В--С2 


представляет собой синтаксически правильный оператор присвоения, 
а записи вида 


Х—АМ=В--С2 
24.1 =А—САММА 


на языке ФОРТРАН бессмысленны. 

2. При записи выражений в правой части арифметического опера- 
тора присвоения должны соблюдаться общие правила построения ариф- 
метических выражений (см. порции 21—23). 

3. Тип переменной, стоящей в левой части оператора присвоения, 
может отличаться от типа, определяемого выражением, стоящим в 
правой части оператора. В этом случае вычисление значения выра- 
жения производят по правилам арифметики того типа данных, из 
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которых состоит выражение, но результат вычислений будет преобра- 


зован согласно типу переменной левой части перед присвоением полу- 
ченного значения этой переменной. Это свойство оператора присвое- 
ния может быть использовано в ФОРТРАНе для преобразования типа 
величин. 

Рассмотрим несколько примеров, поясняющих это положение. 


К 3 : 
А =3*К -- 4 


Выражение в правой части последнего оператора имеет значение 
13 (целое). Но так как А является вещественной переменной, то полу- 
ченный результат будет преобразован и представлен вычислительной 
машиной как 13:0. 

Следующий пример: 


А 5.6 
А=3.0*+А +-9.3 


Как нетрудно проверить, значение А после проведенных вычисле- 
ний будет равняться 26.1. Теперь предположим, что у нас имеются 
следующие операторы вместо рассмотренных выше: 


А=5.6 
К =3.0+А-- 9.3 


На первый взгляд может показаться, что К = 26.1. Однако это 
не так, поскольку К является целой переменной и принимает значе- 
ние целой части полученного числа. Заметим, что здесь не произ- 
водится округление; дробная часть перед присвоением отбрасыва- 
ется. | 

Таким образом, если значение выражения окажется равным, ска- 
жем, числу 28.99, то переменной К будет присвоено все-таки 38, а 
не 29. 

Возможностью преобразования данных целого типа в вешествен- 
ные и обратно при выполнении операторов присвоения приходится 
пользоваться довольно редко, но в случае необходимости она создает 
ощутимые удобства. 

Задание. Дана следующая последовательность операторов: 


А=12.4 
В=2.0+А-- А/2.0 
К=АғВ—В/А 


Вычислите и запишите значение Ке 


ге 
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Порция 33 
Правила записи 
арифметических операторов присвоения 
(продолжение) 


При необходимости для облегчения чтения, сокращения записи 
и времени выполнения исходной программы можно вводить проме- 
жуточные переменные. Например, требуется вычислить значение Х 
по формуле: 
| —6-- УР? — дас 
= ——— и: 
2а 


Оператор для вычисления х можно записать В виде: 


Х =(-В--ЗОВТ(В+2—4.+А»С))/(2.+А) 


| Таблица 12 
| 


Оператор присвоения _ Исходная формула 


1/х 


О = (№ (1./Х) + 60$ (1./Х))=*(1./Х) и (к) (віл — + соз = 
Р = ЗОВТ (СО (Х)) — СО (3.+Х)*(1./3.) Ро) = Усов х— У 53% 
ЕІ = ЕХР (1./5.) + ЕХР (Х/4.) ЕІ (2) = + и = 
С = (Аз (1./АМ) + В=*(1./АМ М. "Ва ВЕН 
У = (1. + Х+*2) = (13 (Х)/СОЅ (Х))**2) о = (1 4 х2)'8°х 
УЕ = (1. + Х++2)** (0. «517 (Х)/СОЅ(Х)) о, (1 4. хауа 
1 
91 = СОЅ (А*Х)**(1./(СО$ (А+Х) — 1.)) шу = (соѕ ах) 60$ 9—1 


Введя промежуточную переменную, мы можем записать необходимые 
действия следующим образом. 


КАРІСІ =809КТ(В»2-—4..А:С) 
Х = (—В--КАРІСІ)/(.А) 


В табл. 12 приведены примеры правильно написанных арифмети- 
ческих операторов присвоения и эквивалентные им алгебраические 
равенства в общепринятой форме. Идентификаторы переменных выб- 
раны произвольно. Кроме того, предполагается, что всем переменным, 
встречающимся в правой части операторов присвоения, к моменту 
выполнения операторов присвоены некоторые значения. 
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Каждый оператор табл. 13 содержит по меньшей мере одну ошибку. 


Таблица 13 
- Арифметический оператор присвоения Ошибка 
У ==2.Х -- Аж=3 | отсутствует є (знак умнож.); 
14 = (Х — А)/2.«Х слева не может стоять константа; 
== (К + 5*А) (ЗМ (2.*А) нарушено соответствие между скобками, 
отсутствует знак умножения; 
Х = 1, 624, 009 запятые в константах употреблять нельзя; 
—К == (1-Е |+А целую величину нельзя возводить в ве- 


щественную степень, переменная в левой 
части должна быть без знака 


Задание. 1. Определите значение А или І, которые получатся 
в результате выполнения оператора присвоения, и определите также, 
будет ли результат целым или вещественным: 


а) А = 2+3*4 
6) А = 2/5 
в) А: —=62'20 


3) А = 3.0*(1. 0Е9/9, 0) 

и) А = 3.0*1.0Е2/2.0 

к) [25 

2. Напишите операторы присвоения, которые производили бы 
следующие действия: 

а) Присвоить переменной С значение корня квадратного из раз- 
ности квадратов значений переменных А и В. 

6) Присвоить переменной Х значение куба разности значений пе- 
ременных Р и Т. 

в) Присвоить переменной Ү значение суммы кубов значений пе- 
ременных Р и Т. 


Порция 34 
Правила записи 
арифметических операторов присвоения 
(продолжение) 


Задание. Напишите операторы присвоения для вычисления 
значений переменных по следующим формулам. Для наименования 
переменных используйте те буквы и обозначения, которые имеются 
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в формулах: | 
а) 2 28.08. (п 3.1416) 


б) У = лв 

в И =  л(++В.)Н 
0 

г) АМРЕК уе угаа] 


д) А=2Их-2. ху 


Порция 35 
Логический оператор присвоения 


Логический оператор присвоения выполняет операцию присвоения 
значения логического выражения, стоящего справа от знака «=», ло- 
гической переменной, стоящей слева от этого знака. Формат логиче- 
ского оператора присвоения следующий: 


= 1 


Здесь о — идентификатор простой или индексированной переменной 
| логического типа; 
[ — логическое выражение. 

‚Предположим, что переменные 11, 12, ВІ, В2 и ВЗ описаны в дан- 
ной программной единице спецификатором ГОСТСАТ, (тип остальных 
переменных задан неявно). 

Тогда в этой программной единице могут быть записаны, например, 
следующие логические операторы присвоения: 


В2=1[.1.ОВ..МОТ.В1 
ВЗ=(А--В—В224+1.1)+С.1.Т.3.0.АМО.В$4-2.1,Е0.15.3:р 
В1= МОТ.ВЗ.АМО..МОТ,Г.1.ОВ 1.2 


Выражения в правой части логического оператора присвоения 
должны подчиняться правилам’ записи логических выражений. На- 
поминаем, что значением логического выражения могут быть только 
логические константы: .ТКОЕ. и .ЕАІЅЕ.. 

В предыдущих порциях мы рассмотрели две разновидности опера- 
торов присвоения: арифметический и логический. Третья разновид- 
ность операторов присвоения — оператор присвоения метки А$516М№ — 
будет рассмотрена в порции 70. 
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Задание. Запишите на языке ФОРТРАН следующие логиче- 
ские выражения: | | 
аи и 0 

< и сих 
и операторы присвоения их значений логическим переменным АГ, 
и ВГ. | 


(У=.0В.; Л =.АМ) 


Порция 36 
Операторы присвоения (продолжение) 


Задание. 1. Написать арифметические операторы присвое- 
ния для вычисления значений по следующим формулам: 


а= уха 22; 
2) х= а? + 5 — 206 соѕ В; 
3) Р, (х) = а, Е х (а, | х (а. + азх)); 


ху ех — 9,4 . 
х"! у ху ? 


5) Р(х) = [х + 8 ра): 


2. Написать операторы присвоения значений следующих выска- 
зываний переменной В логического типа: 


1) 2% + 0 52.4 

2) х2 — 02 < 16 Д хь 0 

З) и 20) 

4) а> 6 \ү с<а4 Даст 0 

3. В некоторых из приведенных ниже операторов присвоения допу- 
щены ошибки. Укажите их. 

Переменные Ч, У, № в этих операторах являются логическими, 


идентификаторы остальных встречающихся в них переменных описаны 
неявно: 


1) 9=У.08М; 5) У=К-ю+ 0; 


4) г = 


2) К=О; ли аваз: 
3) №=0-В; 7) к= Хью С: 
4) МВ; 8) У= .МОТМ.АМО.Ч 
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Порция 37 
Бланк оператора ФОРТРА На 


Число символов, составляющих один оператор ФОРТРАНа, огра- 
ничивается форматом бланка, на котором записываются операторы. 
Писать программы на бланках не обязательно, хотя это существенно 
облегчает чтение программы и ее перфорирование. | 


Задача | а ен 
Программист | Дата | Страница 

С. | - Иденти- 
Б ОПЕРАТОРЫ ФОРТРАНА Фихация 
а) 


Рис. 13 


На рис. 13 изображен бланк ФОРТРАНа. 
Каждый оператор ФОРТРАНа записывается на бланке с новой 
строки. В строке бланка пронумеровано 80 позиций. В одной позиции 
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Дата 


ОПЕРАТОРЫ ФОРТРАНА 


7 10 20 35 40 50 60 7) 
1=В**2+6-Л]*х2 : 

П | ` 
1 = Виа +0 - рю) 


Рис. 14 


‚ строки может быть указан только один символ. В записи операторов 
пробелы между символами значения не имеют. Один и тот же оператор 


АВС 


на бланке можно записать по-разному (рис. 14). Исключение состав- 
ляют записи текстовых констант, в которых пробелы являются зна- 
чащими символами и вставлять или опускать их нельзя. 

Задание. Сколько символов может быть записано в одной по- 


зиции бланка? 
9 


Порция 38 
Бланк оператора ФОРТРАНа (продолжение) 


Первая колонка 


ФОРТРАН-программа может сопровождаться различного рода ком- 
ментариями, предназначенными, например, для тех или иных поясне- 
ний или сведений. Комментарии можно размещать в любом месте про- 
граммы, однако не внутри операторов, а только между операторами. 

На бланке (рис. 14) первая колонка выделена пунктиром. Буква 6 
записанная в этой позиции, показывает, что вся строка занята ком- 
ментарием. Текст комментария, который может быть записан со 9-й 
колонки, транслятором не воспринимается и может содержать любой 
набор допустимых символов. В одной строке можно поместить текст 
комментария, не превышающий 71-го символа. Если текст коммен- 
тария занимает более 71-го символа, его запись можно продолжить в 
следующих строках, поставив в первой позиции каждой из этих строк 
символ С. Текст комментария перфорируется на картах, размещается 
в памяти и выводится на печать вместе с текстом программы. | 
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| А 
| | | 
А = хх +0 - #7 
ТИЕ В ИИА Я 
і МХ А 


Е о ОДРЕД 


На рис. 15 приведен пример записи комментария к программе. 
Задание. Каким образом можно указать транслятору, что 
некоторая строка занята комментарием? 


Порция 39 
Бланк оператора ФОРТРАНа (продолжение) 


Колонки меток (1—5) 


Как Вы узнаете из дальнейшего, в некоторых случаях возникает 
необходимость в записи одного оператора упомянуть некоторый дру- 
гой оператор. Это может быть сделано посредством введения наиме- 
нований операторов, называемых в языках программирования метками 
(или, как мы будем иногда говорить, путем присвоения меток опе- 
раторам). Как правило, языки программирования допускают присвое- 
ние меток любым операторам программ. В программах на машинных 


—.-..---..-- 


9> 

5 

> 

х ОПЕРАТОРЫ ФОРТРАНА 

Еу 0. 20 30 40 50 
ЧЕТ ТРАЕКТОРИИ ПОЛЕТА АРТИЛЛЕРИИСКОГО СНАРЯДА 

Е ВЕ СЛ ЕЕЕ а 61 ЕТИ | 
КОЭФФИЦИЕНТЫ У0Х ХОУ 


ОТ В АИ ТТ И О И 


Рис. 15 


языках роль таких меток играют адреса ячеек, в которых размещают- 
ся машинные операторы программы — команды. Поскольку адреса 
машинных ячеек представляют собой упорядоченное множество на- 
туральных чисел, метки машинных операторов всегда упорядочены. 
Каждому. оператору в ФОРТРАН-программе можно присвоить (при- 
писать перед его началом) одну метку. Метки выбираются программи- 
стом произвольно и записываются в 1—5 колонках бланка. Таким об- 
разом, любая метка имеет вид натурального десятичного числа в диа- 
пазоне от 1 до 99 999, т. е. любого пятиразрядного числа, отличного 
от нуля. Оператор, имеющий метку, называется помеченным. 

Правила присвоения меток. 

Правило 1. Оператору можно присвоить только одну метку. 

Правило 2. Две метки, отличающиеся ведущими нулями (т. е. ну- 
лями, записанными слева от первой, отличной от нуля цифры), счи- 
таются одинаковыми. Например, метки 01, 0001, 1 — одинаковы. 
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Правило 3. Два оператора в одной программной единице не могут 
‚иметь одинаковые метки. 

Правило 4. Упорядоченности присваиваемых меток не требуется. 

На рис. 16 изображен фрагмент программы, иллюстрирующий пра- 
вила присвоения меток операторам. 

В примере а) операторы, записанные во второй и четвертой строке, 
не имеют меток, и после оператора с меткой 2] они будут выполнены 
в том же порядке, в котором они записаны в программе. Однако, как 
мы увидим далее, наличие меток 15 и 6 у операторов, записанных 
в третьей и пятой строках, позволяют так составить программу, что при 
необходимости может быть начато выполнение оператора с меткой 15 
(а первые два оператора будут пропущены) или с оператора с меткой 6 
(а. первые четыре будут пропущены). 


Номер ] 
<^ ОГератора 


75 |2 = Ажх2+5 ОВТ 


2 = С*(А+В) 


21| 10/= Лж*2/ (АВС 


| 


|2 = (ж(А+8)ж%2 


а 


Рис. 16 


Пример б) иллюстрирует ошибку в присвоении меток: два опера- 
тора в одной программной единице не могут иметь одинаковые метки. 
Задание. Запишите на бланке ФОРТРАНа следующий опе- 
ратор: | 
| О АЕО 


Порция 40 
Бланк оператора ФОРТРА На (продолжение) 


Признак продолжения оператора 


Если оператор состоит из большого числа символов и не помеща- 
ется на одной строке бланка, то в следующей строке в 6-ю колонку 
помещается символ продолжения, которым является любой символ, 
отличный от, уи 0, например цифра 2, и далее на строке продолжается 
‘запись оператора. 37 
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Таким образом, шестая колонка на бланке является колонкой про- 
должения. Если имеется необходимость еще в одной строке, то ее так- 
же разрешается использовать, поставив в ней, в колонке 6, некоторый 
символ, отличный от, и 0. В ФОРТРАНе разрешаются операторы, 
которые могут занимать до 20 строк. Заметим, что метка оператора 
ставится только перед его первой строкой (не имеющей символа про- 
должения). Таким образом, между меткой и оператором на бланке 
‚остается один о (в шестой позиции) или несколько. 

Задание. Как обозначается рроделя сни оператора при 
записи оператора ФОРТА 

2. Запишите на бланке оператора ФОРТРАНа следующий опе- 


ратор: 
10 АГРНА=САММА**3*РЕГТА**3- РЕТТА/САММА-- (САММА + 
18 ОВІТАЈ(САММА*РЕТ.ТА)—ЅОВТ(САММА*РЕІТА) 


_ Порция 41 а. 
Бланк оператора ФОРТРАНа (продолжение) 


Позиции для записи операторов . 


Для представления оператора ФОРТРАНа выделяются 66 пози- 
ций — с 7-й по 72-ю включительно. Поскольку выше было указано, 
что для любого оператора ФОРТРАНа может быть использовано до 
двадцати строк, то отсюда следует, что оператор ФОРТРАНа может 
содержать до 20 х 66 = 1320 символов. 

Напоминаем, что при записи оператора ФОРТРАНа в каждой 
позиции бланка может быть записан только один символ. Под симво- 
лом понимается одна цифра от 0 до 9, любая заглавная буква от А. 
до 7 или любой специальный символ. Десятичная точка «.» рассмат- 
ривается как один символ, и поэтому такое число, как, например, 29., 
будет занимать три, а не две позиции. 

Аналогично одна позиция выделяется и для записи каждой скобки. 

Задание. Запишите на бланке ФОРТРАНа следующие опера- 
торы: 


К = 25.3 
ЭН — оо 
Порция 42 


Бланк оператора ФОРТРА На ан 
Позиции с 73 по 80 включительно 


Эти позиции могут использоваться при идентификации отдельной 
_перфокарты или программы. Информация, помещаемая в этих пози- 
циях, транслятором игнорируется. Поэтому они могут использоваться 
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программистом для нумерации перфокарт, необходимой, например, 
в больших программах для обеспечения правильного. расположения 
перфокарт перед вводом их содержимого в запоминающее устройство 
ВМ. 


В большинстве случаев эти колонки будут оставаться пустыми, 
поскольку совсем необязательно в них что-либо помещать. 

В дальнейшем при записи операторов, фрагментов и программных 
единиц на ФОРТРАНе будет подразумеваться, что метки, символы 
продолжения и текст операторов записаны в надлежащих позициях. 

Задание. Для какой цели используются колонки 73—80? _ 


Порция 43 
Оператор ВЕАР 


Все исходные данные — начальные значения переменных, необхо- 
димые для выполнения данной программы, можно задать непосред- 
ственно в программе с помощью операторов начальных данных (о них 
будет идти речь далее) и операторов присвоения соответствующих кон- 
стант (значений данных) этим переменным, например: 


А= 8.0 
Ва02;5 
С=1.0 


У=А*В*+2- В*А ус 


Но в таком случае программа может быть использована только 
для задачи с этим конкретным набором исходных данных. Такие слу- 
чаи использования ЭВМ мало эффективны. | 

Машина может считывать исходные данные в процессе выполнения 
программы, поэтому программу обычно составляют так, чтобы ее мож- 
но было использовать столько раз для различных исходных данных, 
сколько необходимо, вводя каждый раз их новые наборы. Набор иС- 
ходных данных заносится на некоторый внешний носитель, например, 
на перфокарты, а указание ввести эти данные в память дается в про- 
грамме с помощью оператора ВЕДРО. 

Формат оператора РЕАр следующий: 


КЕАР” (к, ,№,) (список) 


К ЕАР (/, К.) 


Здесь №, — целая положительная константа, обозначающая символи- 
ческий номер устройства, с которого вводятся данные (устройства 
ввода условно нумеруются), или идентификатор целой переменной, 
значение которой определяет номер устройства; 

К, — метка оператора РОКМАТ, содержащего информацию о спо- 
собе ввода данных, или идентификатор массива (смысл оператора 
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ГОКМАТ и назначение идентификатора массива в операторе ВЕАО 
будут объяснены далее). 

Названные объекты в скобках разделяются запятыми. 

Введем понятие списка. Список — это конечная последовательность 
однородных объектов, называемых элементами списка, содержащая 
хотя бы один такой объект. Списки элементов, используемых в языке 
ФОРТРАН, разделяются друг от друга запятой. Количество элемен- 
тов в списках операторов ФОРТРАНа произвольно. Единственным 
ограничением на операторы, содержащие списки, является общее огра- 
ничение на длину операторов в ФОРТРАНЬ, т. е. 1320 символов. 

В операторе КЕАР элементами списка могут быть идентификаторы 
переменных, переменных с индексами или массивов. 

Приведенные выше первые три оператора присвоения могут быть 
заменены (при надлежаще подготовленных на устройстве ввода с но- 
мером 2 данных и при наличии в той же программной единице соот- 
ветствующего оператора ГОКМАТ) оператором: 


ВЕАр(2,1)А,В,С 


Переменные в списке оператора ВЕАЮ могут быть любого типа. 
Более того, в одном операторе могут быть названы переменные не- 
скольких типов. Например: 


КЕАР(°,1)А,В,К,1(1)С,М(4) 


Значения переменных, отперфорированные на перфокарте, должны 
располагаться в той же последовательности, в какой их наименования 
перечислены в операторе КЕАР. Таким образом, процесс ввода проис- 
ходит в следующем порядке: первое значение с перфокарты присваи- 
вается первой переменной, второе значение присваивается второй 
переменной и т. д., пока не будет исчерпан список переменных. По- 
следовательный перебор идет слева направо, так что первой перемен- 
ной будет присвоено значение, отперфорированное в левом краю пер- 
фокарты с данными. 

На одной перфокарте не могут быть отперфорированы данные, 
предназначенные для чтения двумя операторами ВЕАР”, ‘поскольку 
при завершении выполнения оператора КЕАР перфокарта, с которой 
был прочитан хотя бы один символ, сбрасывается в колоду прочи- 
танных карт. Для каждого оператора ВЕАР должны быть свои пер- 
фокарты либо перфокарта. Следовательно, при вводе данных с перфо- 
карт оператор ВЕАР всегда означает чтение с новой перфокарты. Если, 
например, на одной перфокарте отперфорировано шесть данных, 
то их нельзя ввести в машину с помощью двух операторов ВЕАР, 
перечислив переменные так, чтобы второй оператор начал ввод с того 
места, где первый остановился. Единственный способ ввести шесть 
данных с одной перфокарты — это написать один оператор КЕАР 
и перечислить в нем все шесть переменных. . 
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Предположим, что за устройством ввода с перфокарт закреплен 
номер 2, тогда, если нам надо записать оператор считывания с одной 
перфокарты трех данных, значения которых необходимо присвоить 
переменным АГ.РНА, ВЕТА, САММА, то запишем: 


КЕАр(2,3)АІРНА, ВЕТА, САММА 


Задание. Запишите оператор. считывания с перфокарт зна- 
чений, которые необходимо присвоить переменным Х, У, 1, 


Порция 44 
Оператор У ТЕ 


Оператор МБІТЕ работает аналогично оператору КЕАР. Если 
использование. оператора КЕАР обеспечивает возможность ввода 
исходных данных в память ЭВМ, то применение оператора МВІТЕ 
позволяет осуществлять вывод значений переменных — результатов 
вычислений или вспомогательной информации из памяти машины на 
устройство вывода, номер которого указан в данном операторе. 

Формат оператора МВІТЕ следующий: 


| МКІТЕ(А,, А.) (список) 
ИЛИ. 
\КТТЕ(Е,, ^,) 


К, целая положительная константа, обозначающая номер устрой- 
ства, на которое выводятся данные, или идентификатор целой перемен- 
ной, значение которой определяет номер необходимого устройства 
ввода-вывода; | 

К, — метка оператора ЕОЮМАТ, содержащего информацию о спо- 
собе вывода данных, или идентификатор массива; | 

(список) — список идентификаторов переменных, переменных с 
индексами или массивов, значения которых нужно вывести. 

_ Рассмотрим пример записи оператора \КТТЕ. | 

Предположим, что за алфавитно-цифровым печатающим устройст- 
вом (АЦПУ) закреплен номер 1. Тогда оператор выдачи на печать 
значений переменных А, В, С будет иметь вид: 


\/ЕГТЕ(1,5)А,В,С 


Напоминаем еще раз, что наличие скобок и запятых между объектами, 
указанными в скобках, и элементами списка обязательно. 
Операторы КЕАР и МРІТЕ несут информацию, связанную с про- 
цессом ввода и вывода: 
1. Относится ли операция к вводу (КЕАП) или выводу (МВІТЕ). 
2. Какой носитель информации используется при выполнении опе- 
раторов ввода-вывода (это определяется номером устройства ввода- 
вывода). - и О ВОИ | т 


3. Какие переменные должны получить новые значения или зна- 
чения каких переменных надо вывести (это определяется списком пе- 
ременных в операторе КЕАР или УКТЕ). | 

4. В каком порядке должны быть расположены значения на пер- 
фокарте или будут расположены при выводе (это определяется по- 
рядком перечисления переменных в списке соответствующих опера- 
торов КЕАР или МРІТЕ). 

Задание. Запишите следующие операторы на языке ФОРТ- 
РАН: 

а) Ввести значения переменных А, В, СО: 

6) Напечатать значения переменных ОМ, КАКАО, АМРЕК. 

в) Ввести значения переменных Ј, К, [,, М, М. 

г) Напечатать значения переменных УИ. 


Порция 45. 
Оператор ЕОВМАТ 


В предыдущих порциях мы изучили назначение операторов КЕАР 
и МКІТЕ и рассмотрели, какую информацию относительно ввода и 
вывода они несут. Прочтите еще раз материал этих порций, если Вы 
забыли это, так как далее перейдем к изучению операторов ҒОВ МАТ, 
используемых совместно с операторами ВЕАР”Р и МРВІТЕ. 

Для выполнения операций ввода и вывода недостаточно информа- 
ции, задаваемой операторами КЕАР и МБІТЕ. Необходима еще ин- 
формация о том, в каком формате отперфорированы или должны быть 
выведены, в частности, отпечатаны данные. Сколько колонок на пер- 
фокарте занимает каждая вводимая величина? Сколько знаков за- 
ймет каждая выводимая величина при выводе на перфокарты или при 
печати? Каков тип вводимых и выводимых данных (целый, вещест- 
венный, комплексный, логический или текстовой). 

Эти сведения о внешнем представлении данных содержатся в опе- 
раторах ЕОКМАТ. Оператор ЕОЕЮМАТ относится к невыполняемым 
операторам и является среди этого класса единственным оператором, 
который в любом случае должен быть помечен. Операторы :ЕОВ МАТ 
используются при выполнении тех операторов КЕАР и МРІТЕ, 
в скобках которых после запятой стоят их метки. Порядок исполь- 
зования операторов ЕОКМАТ следующий. Вспомним, как записы- 
ваются операторы КЕАР и МРІТЕ. | 

Например: | 


КЕАр(2,3) А, В, С. 
У'ВТТЕ(1,5) А, В, С. 


Первые константы в скобках являются символическими номерами 
устройств ввода-вывода, а вторые — 3 в операторе ВЕАр и 5 в опера- 
торе МКІТЕ — метками соответствующих операторов ЕОКМАТ. .:. 
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_ В операторе ЕОКМАТ указываются форматы полей для каждой 
переменной из соответствующего списка, помещенного в операторах 
КЕАР и МВІТЕ. При этом полем называется последовательность 


(группа) колонок на перфокарте или позиций для печати на бумаж- ^ 


ной ленте. 
Ниже приведены примеры записи операторов КЕАВ и УКИЕ 
и связанных с ними операторов ЕОВМАТ: 
‚ БЕАр(2, З)А, К, С 
3 ЕОКМАТ(Е10.3, 15,Е6.0) 
\/КТТЕ(1,5)А, В, С 
5 ЕОКМАТ(Е20.8, Е20.8, Е20.8) 

В приведенных примерах форматов буквы І, Е и Е определяют 
тип формата; при этом буква [ используется для описания данных 
целого типа, а буквы Е и Е для вещественного в форме с фиксирован- 
ной и плавающей запятой соответственно. Целое, стоящее после бук- 
вы 1, обозначает общее число позиций в поле, предназначенном для 
размещения значения данного, включая позицию для знака. Целое, 
стоящее между буквами Е и Е и точкой в форматах Е и Е, как и в фор- 
мате |, обозначает общее число позиций, отводимое для размещения 
числа, включая его знак, десятичную точку, символ Е, знак порядка 
и две цифры порядка, а целое, стоящее после точки, обозначает число 
позиций, отводимых для дробной части числа. 

Задание. Какую информацию несет оператор ЕОКМАТ? 


Порция 46 
Правила записи оператора ҒОКМАТ 
В этой порции будут изложены правила записи оператора ЕОБ- 


МАТ, которые необходимо соблюдать при организации ввода исход- 
‚ ных данных и выдачи результатов работы программы. 


Правило 1. Следующие за служебным словом ЕОКМАТ форматы . 


полей переменных заключаются в круглые скобки. Форматы полей 
переменных отделяются друг от друга запятыми или косой: чертой. 
Пример. 
25 ЕОКМАТ(Е10.0,15/Е 20.8) 


Здесь в операторе ЕОКМАТ указано три формата полей переменных. 

Правило 2. Черта употребляется для указания перехода на новую 
единицу ввода-вывода: новую перфокарту (при вводе) или новую стро- 
ку печати (при выводе). Несколько символов «/» могут стоять рядом, 
это указывает на пропуск соответствующего количества единиц ввода- 
вывода (например, пропуск соответствующего числа строк при выводе 
на печать либо перфокарт при вводе). Е: 

Пропуск и перфокарт при вводе или и строк при выводе на печать 
достигается простановкой (и - 1) символов «/» в соответствующих 
позициях в списке оператора ЕОВМАТ. 
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Пример. 
КЕАр(2,17)Х,Ү, 
| 17 РОКМАТ(Е10.6/Е10.6,15) 
При выполнении данного оператора КЕАР согласно приведенному 
оператору ЕОКМАТ значение переменной Х будет считано с 1-ой 
перфокарты, а значения переменных У и 1. — со 2-ой перфокарты. 
(мы предполагаем при этом, что все используемые в примерах иденти- 
фикаторы являются идентификаторами простых переменных, а не мас- 
сивов). 
Пример. 
ВКЕАП(2,5)А,В,С,р,Е 
5 ЕОВМАТ(Е12. 3, Е12. 3///Е10.0,Е8.0, Е10. 9) 


При вводе информации с перфокарт значения переменных А и В 
будут считаны с 1-й перфокарты, 2-я и 3-я перфокарты будут пропу- 
щены и переменным С, О и Е будут присвоены значения, отперфори- 
рованные на 4-й перфокарте. 

Пример. 

МУКТЕ(1, 4). КТ. 
4 ЕОКМАТ(10Л10Л8) 

В этом примере каждое из значений переменных ,К и і будет 
напечатано с новой строки. 

Правило 3. Перед форматом поля в операторе ЕОКМАТ может 
быть поставлена целая положительная константа, называемая коэф- 
фициентом повторения. Формат такого вида означает последователь- 
ность одинаковых (указанных в нем) форматов, число которых равно 
коэффициенту повторения. В примере 

ВЕАр(2,3)А,В,С 
3 РОКМАТ(Е10.3,Е10.3,Е6.0) 
оператор ЕОКМАТ можно записать так: 
3 РОКМАТ(2Е10.3,Е6.0) 


Задание. 1. Какие символы используются в качестве раздели- 
телей форматов полей в операторе ЕОКМАТ? 
2. Как иначе можно записать следующий оператор? 


5 РОКМАТ (16,16,16,16) 


Порция 47 
Правила записи оператора ҒОКМАТ 
(продолжение) 


Правило 4. Операторы ЕОКМАТ относятся к группе невыпол- 
няемых операторов. Их можно помещать в любом месте той програм- 
мной единицы, в которой встречаются ссылающиеся на них оператори 
ввода-вывода. 


Правило 5. В операторах ввода-вывода КЕАР или МВІТЕ долж- 
на. указываться метка сопоставленного им оператора ЕОЮМАТ.. Один 
и тот же оператор ЕОКМАТ может быть сопоставлен с несколькими 
разными операторами ввода-вывода. РЭ 

Пример. 

КЕАО(2,1)К,Г,,М,М 
1 КОКМАТ(2110,115,120) 
М/КТТЕ(1, 1) КАРРА, [ЛМЕ, ММК, КОМ 


В этом примере один оператор ЕОКМАТ используется для чтения 
с перфокарт значений переменных К, 1, Ми Ми для вывода значений 
переменных КАРРА, МЕ, ИМК, КОМ. 

Задание. Перечислите известные Вам правила записи опера- 
торов ЕОКМАТ. Б, Б 


| Порция 48 
‚ Правила записи оператора ЕОВМАТ 


(продолжение) 


Правило 6. Форматы полей в операторе ЕОКМАТ при выполнении 
соответствующих операторов ввода-вывода считываются последова- 
тельно слева направо и ставятся в соответствие переменным из списка 
операторов ввода-вывода. | 

Пример. . 

\УЕТЕС,З)А,К,С 
3 ЕОКМАТ(Е?20.8,15,Е 10.0) 


В этом примере переменной А ставится в соответствие формат 
Е20.8, т. е. значение переменной А будет напечатано в формате Е20.8, 
переменной К — формат 15, переменной С — формат Е10.0. 

Если спецификации полей в операторе ЕОКМАТ исчерпаны, а спи- 
сок переменных в операторе ввода-вывода еще не исчерпан, то автома- 
тически происходит переход на новую единицу ввода-вывода (новую 
перфокарту или новую строку печати) и начинается повторное счи- 
тывание всех форматов, указанных в операторе ЕОВМАТ, слева на- 
право, начиная с первого. Этот процесс будет продолжаться до тех 
пор, пока список переменных в операторе ввода-вывода не будет ис- 
черпан. 

Пример. 
(е КЕАр(2,10)А,В,.,С,р,Д,Е,Е,Қ,О,Н,М 
10 ҒОКМАТ(Е10.0,Е15.3,110). 

При выполнении этих операторов. произойдет следующее: пере- 


менной А будет присвоено первое значение, отперфорированное на 
первой перфокарте с данными в формате Е10.0, переменной В — вто- 
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рое значение, отперфорированное на первой перфокарте в формате 
Е15.3, и переменной Г. — в формате 110 на той же первой перфокарте. 
Затем осуществляется переход на новую : перфокарту с данными и 
ввод продолжается так: переменной С присваивается первое значение, 
отперфорированное на второй перфокарте с данными в формате Е10.0, 
переменной Р — второе значение второй перфокарты с данными, от- 
перфорированное в формате Е15.3, и т. д. 

Если в операторе ЕОВМАТ окажется больше форматов, чем пере- 
менных в списке оператора ввода-вывода, то часть ови 082 в конце 
оператора просто остается неиспользованной. ыы: 

Пример. 

КЕАр(2, 10А, В 
11 РОВМАТ(Е10.0,Е15.3,17). 


В этом примере используются только форматы Е10.0 и Е15.3 для 
переменных А и В соответственно. 

Поскольку один и тот же оператор ЕОКМАТ может быть сопостав- 
лен нескольким операторам ввода-вывода, неиспользуемые одним та- 
ким оператором ввода-вывода форматы могут быть использованы дру- 
ГИМИ. | 

Правило 7. Суммарная ширина полей форматов тех переменных, 
значения которых будут размещены на одной единице ввода-вывода, 
должна быть не больше емкости этой единицы (т. е. не более 80 коло- 
нок на перфокарте при вводе и не более длины одной строки на АЦПУ 
при выводе). Например, следующая запись будет ошибочной: 


ВЕАр(9,99)А,В,С,р,Е 
22 ЕОВМАТ(5Е1В.3) 


так как число колонок 18 +- 18 -- 18 -+ 18 + 18 = 90 превышает 80. 
Правило 8. При написании оператора ЕОКМАТ на бланке в ‚за- 
писи форматов полей и между ними можно оставлять пробелы для удоб- 
ства чтения. Исключение составляет формат Н и текстовые константы, 
где пробелы воспринимаются как значащие символы. 
Задание. Найдите ошибки в записи следующих операторов: 
а)‘ =КЕАБ(2,5} ХУ К 
5 ЕОКМАТ?2Е10.3,16 
6)  КЕАО(2,7) КАЕ, ГМ, ОМС, ЗМ, ТЕТА, КІМС 
7 ОКЕЕВ, 3Е18. 6) 


Порция 49 
Дополнительные приемы построения оператора ЕОВМАТ 


Символ «/» позволяет с помощью одного оператора ЕОКМАТ про- 
читать одну, первую карту, по одному формату и целую группу по- 
следующих — по другому. В этом случае второй формат должен быть 
взят в дополнительные скобки. | 
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Например, с помощью операторов: 


ЕАО ОБО... ВЫЫ ОЕ. х, у 
52 ЕОКМАТ(15/(4Е15.3)) | 


будет прочитано с первой карты одно число, занимающее пять коло- 
нок, а со второй, третьей, четвертой ит. д.— по четыре числа, занимаю- 
щих по 15 колонок. Первый формат используется для одной карты, 
второй для всех остальных, до исчерпания списка всех читаемых опе- 
ратором ВЕАР данных. 

Еще один пример: 


ВЕАр(2,3)АІ, ВІ, ОМС, СІ, Рр1,Е1, 61, НІ, $1, ТІ, 01, ХІ, ҮІ 
3 ЕОВМАТ(2Е6.0/110/(2Е20.8)) 


При выполнении этих операторов значения переменных АІ, ВІ будут 
прочитаны с первой карты по формату Е6.0, значение (ОМ@ — со вто- 
рой карты по формату 110 и, наконец, значения остальных переменных 
будут прочитаны с третьей, четвертой и т. д. карт по два значения в · 
формате Е20.8 с каждой карты. | 

Иногда бывает необходимо повторить не один формат, а целую 
группу. Для этого группа форматов заключается в скобки; перед 
скобками, если это необходимо, может быть задан коэффициент пов- 
торения. Например, операторы: 


ҮВІТЕ(1,5) К, 11, В5, ВТ, ВО, К91, КТІ, ВИ! 
5 РОКМАТ(214,2(Е9.3,2Е10.0)) . 


обеспечат печать переменных из списка оператора УВЕ по сле- 
дующим форматам: 


Идентификатор Формат поля 

К [4 

1! 14 

ВУ Е9.3 

ВТ 210.0 
КО Е10.0 
К51 Г9.3 
ВТ! Е10.0 
ВОІ Е10.0 


Если бы список оператора МЕІТЕ содержал еще три элемента, 
например К$2, ВТ2, Е02: 


\/КТТЕ{1,5) К, 17, К5,.КТ, ВО, К51, БТІ, ЕІ, 852, ВТО, РО, 


то повторение формата для вывода этих трех переменных Во. Р; 
602 начиналось бы с самой правой открывающей скобки, т. е, зна- 
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чения переменных К52, ВТ2, ВО2 были бы выведены по форматам: 


Идентификатор Формат поля 
К52 Ғ9.3 
КТ2 10.0 
К0О2 Е10.0 


Задание. Запишите операторы ВЕАР и ЕОКМАТ, необходи- 
мые для ввода значений переменных | 


В, $, Т, 1, Ј, К, 1, М, №, ІК, ЈК, КВ, ІК, МЕ, МВ 


Полагаем, что значения переменных В, 5 и Т отперфорированы на 
первой перфокарте в формате Е15.3, а значения остальных перемен- 
ных — по З на каждой перфокарте в формате 16. 


Порция 50 


Дополнительные приемы построения оператора ЕОКМАТ 
| (продолжение) 


В операторах ЕОКМАТ допускается еще один уровень скобок, 
используемый для ввода-вывода данных. Это позволяет задавать пов- 
торение блоков форматов. Общее правило последовательности исполь- 
зования формата поля можно сформулировать так: сначала просмат- 
риваются все форматы слева направо до конца списка, затем, если 
‚список переменных в соответствующем операторе ввода-вывода не 
исчерпан, начинается повторение форматов с самой правой открываю- 
щей скобки, не считая скобок самого внутреннего уровня, если число 
уровней равно трем. Рассмотрим пример: 


З 321 


го 3 уве а 
17 ЕОЮМАТ(14/2(427.1,2(13,Е10.3)),3(213,2(Е9.0,2Е10.3))) 


1 
Уровни скобок обозначены цифрами 1, 2, 3. В случае необходимости 
форматы йовторяются с самой левой открывающей скобки уровня 2 
(в записи эта скобка отмечена стрелкой). 

Примечание. В порции 95 будет рассмотрен способ ввода-вывода 
информации, с помощью организации цикла в операторах КЕАР и 
ҰҮВІТЕ. 


‚ Задание. Сколько уровней скобок допустимо в записи опера- 
тора ЕОКМАТ? 


| Порция 51 
Представление чисел в памяти ЭВМ 


Особенностью представления данных, обрабатываемых ФОРТ- 
РАН-программой, является выделение для каждого из числовых типов 
полей машинной памяти определенного фиксированного размера. 
В качестве таких полей выбираются поля, обращение к которым 
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наиболее удобно осуществляется в данной конкретной машине. Обычно 
такими полями являются поля отдельных ячеек памяти машины, об- 
ращение к которым возможно посредством указания их адресов. 
Для хранения чисел повышенной точности или комплексных чисел 
при этом может отводиться, например, по две машинные ячейки. Та- 
кое распределение памяти для данных имеет и то преимущество, 
что выполнение арифметических операций над целыми ячейками вы- 
полняется в машинах наиболее эффективно. 

Выделение фиксированных полей для данных накладывает естест- 
венные ограничения на максимальные размеры представляемых в них 
чисел (обычно на максимальные значения их абсолютных величин). 

Разумеется, отдельные конкретные значения какой-либо перемен- 
ной данного типа (или константа) могут представляться числом зна- 
ков, меньшим максимально допустимого размерами отведенного для 
этой переменной поля. В таком случае при размещении числового 
данного свободные позиции заполняются нулями. При этом данные 
целого типа выравниваются к крайнему правому полю, свободными 
оказываются крайние левые позиции. Данные с фиксированной за- 
пятой выравниваются по позиции машинной запятой и свободными 
могут оказаться крайние левые и крайние правые позиции и т. д. 

В связи с фиксацией одинаковых полей для всех отдельных пере- 
менных данного типа при выделении для них памяти нет необходимо- 
сти указывать эти размеры. Необходимость в этом возникает в двух. 
случаях: при выделении памяти под массивы и при вводе или выводе 
данных. — и 

В первом случае, как мы отметили, в ФОРТРАНе в массивы объ- 
единяются данные одного и того же типа, в связи с чем, выделяя для 
массива идентификатор, необходимо указать только тип объединяемых 
в массив величин, его размерность и размеры по каждой из размер- 
ностей: число элементов в одномерных массивах — векторах; число 
строк и столбцов для двумерных массивов — матриц; число строк и 
столбцов в матрице и число таких матриц в случае трехмерного мас- 
сива. 

Второй из названных случаев необходимо рассмотреть отдельно. 

Задание. Нужно ли указывать размеры памяти для простых 
переменных? Почему? 


Порция 52 
Форматы данных при вводе-выводе 


Размеры отводимых полей в памяти машины для данных, как мы 
отметили в предыдущей порции, диктуются не только фактическими 
размерами значений этих данных, но и удобствами выполнения над 
ними операций. Поэтому зачастую встречаются данные, значения ко- 
торых занимают фактически лишь часть отводимых для них полей. 
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При подготовке данных на внешних носителях для их ввода в память 
машины (например, на перфокартах) или при выводе данных (напри- 
мер, на бумажную ленту) нет необходимости выделять размеры полей, 
равные полям, занимаемым этими данными в памяти машины. Как пра- 
вило, эти поля могут быть существенно сокращены, что придает боль- 
шую наглядность данным при выводе и позволяет сократить объем 
перфорируемого материала при вводе. 

Язык ФОРТРАН предоставляет широкие возможности для задания 
способов сокращения полей данных на внешних носителях. 


Порция 53 
Формат поля 


В стандарте языка ФОРТРАН имеется девять видов форматов поля. 
Сочетание этих форматов обеспечивает большую гибкость операций 
ввода и вывода. Мы рассмотрим форматы полей в следующем порядке: 
1) форматы ввода-вывода числовых данных; 2) форматы ввода-вывода 
символьных данных; 3) форматы ввода-вывода логических данных. 

Однако прежде чем изучать форматы поля, целесообразно сначала 
возвратиться к материалу, который мы изучали в гл. І, а именно: 
необходимо вспомнить о типах данных, допустимых в языке ФОРТ- 
РАН. 

Вы, очевидно, помните, что существует шесть типов констант: 
целые, вещественные, повышенной точности, комплексные, логиче- 
ские и текстовые. 

Поскольку машина должна иметь информацию и о том, какой спо- 
соб представления информации применяется в данный момент, в 
ФОРТРАНе используются различные типы форматов для каждого 
из возможных случаев. | 

При этом следует иметь в виду, что форматы ввода-вывода должны 
‚быть согласованы с типом подлежащих вводу-выводу величин. 

Задание. Допустима ли следующая ‚последовательность опе- 
раторов: 


КЕАр(9,9)1,9,Т. Е 
2 ЕОВМАТ(ЕТ.1,214) 


Порция 54 
Управление печатью 


При составлении формата поля данных, выводимых на печать, 
необходимо иметь в виду, что при выводе вначале формируется строка 
вывода (запись), первый символ которой не выводится, а использу- 
ется лишь для управления печатью, Управление печатью состоит 
в задании вертикального смещения печатаемой строки. В языке 
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ФОРТРАН выделены четыре символа (см. табл. 14), за каждым из ко- 

торых закреплена определенная функция управления печатью; функция 

всех остальных символов как символов управления одинакова. 
Например, формат 


10 РОРМАТ(5НІЦИКЛ) 


используемый для вывода символьных данных, определяет следующую 
строку вывода: 


08 ЦИКЛ 
Первый символ этой строки указывает, что слово ЦИКЛ будет 


напечатано с новой страницы; по формату 11 ЕОВМАТ (5Н—ЦИКЛ) 
это слово будет напечатано на следующей строке вывода. 


Таблица 14 
Символ Действия перед печатью строки 
Пробел | Пропуск одной строки 
0 Пропуск двух строк 
| Переход на новую страницу 
--. Смещение не выполняется (строка вывода накла- 
дывается на предыдущую) 
Любой другой символ Переход к следующей строке 


Чтобы предотвратить потерю значащих символов при выводе или 
случайное, не предусмотренное программистом, использование в пер- 
вой позиции таких управляющих символов, как 0, 1 или +, ведущее 
к искажению результата, можно использовать формат Х (он будет 
описан далее), задающий при выводе пропуск пробелов. Например, 


при выводе массива по формату 12 ЕОКМАТ (13) старший (третий) 1 


разряд в десятичном представлении чисел выводиться не будет и, 
кроме того, все числа, содержащие 1 в этом старшем разряде, будут 
напечатаны с новой страницы. Если же использовать для вывода это- 
го массива формат 12 ЕОКМАТ (5Х, 13), то каждое число будет напе- 
чатано без искажения в очередной строке, причем каждому числу бу- 
дет предшествовать 4 пробела, указанные в формате 5Х (первый пробел 
будет использован для управления печатью). 

Задание. Напишите строки, которые будут выведены на пе- 
чать следующими операторами: 


1.  МЕІТЕ(1,1)К · а при К=!1111 
1 РОКМАТ(15) б) при Қ= 1488 


2. МВІТЕ(1,2)К 
2 РОКМАТ(АНСТР, „„15) 
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| 
Ч 
3 
| 
ў 
. 
4 


Порция 55 
Форматы ввода-вывода числовой информации 


Формат 1 


Формат І является самым простым форматом поля и используется 
при вводе и выводе целых чисел. 
В общем виде формат 1 можно записать так: 


о) 


где Г — символ типа формата, & — целая положительная константа, 
определяющая общее количество занимаемых позиций на перфокарте 


12 4 6 8 1012 
0000 00 000000 


ЕЕЕ Е 
22221282222 
3333333835333 


46 8 


111181117 11 1чттиттиттт твит 
772228222 212222222 2222282177 


33333333333 3333333133333 313 44а 44444 Вана 


555555555855 
6666666666166 


44444444444 4 44 Вла 4АааАААиА 
555555558 5|55555585555555(55 
556666666 66 665666 0166666666 


7777177177717 


77777778 771777770771777777177 


8888888888868 
12:4: 6. «8100212. 
9 


СА 999 999999919 


746 8 10| 12 м 16 18| 70 129 24 96 
9399999999999999 99199999919 9 


й 
Рис. 17 ‚ Рис. 18 


(при вводе) или бумажной ленте (при выводе на печать), включая 

позицию для знака. Если, например, поле для вводимой информации 

на перфокарте занимает восемь колонок, то формат поля будет 18. 
Пример. 


КЕАГ(2,24)1,К. 1. 
24 ЕОКМАТ(0,18,16) 


Это значит, что вводимые числа занимают соответственно 10, 8 и 6 
колонок на карте. На рис. 17 изображена перфокарта, на которой от- 
перфорированы значения переменных І, К и Г. в заданных форматах. 

Подлежащие вводу целые числа необходимо перфорировать без 
десятичной точки; при выдаче их на печать точка также не печатается. 
Если количество значащих цифр при выводе меньше количества по- 
зиций, предусмотренного в формате, данное будет напечатано в пра- 
вом краю поля. Левые свободные позиции поля будут заполнены про- 
белами. Если вводимое данное имеет меньше значащих цифр, чем 
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предусмотрено в формате, число должно быть отперфорировано в пра- 
вой части поля. 

На рис. 18 показан вид перфокарт, на которых отперфорировано 
число 2345 в формате а/ 15 и 6/ 110. 

При вводе перед положительным числом знак. плюс можно не ста- 
вить, перед отрицательным числом перед первой значащей цифрой 
обязательно должен быть проставлен знак минус. При выводе в боль- 
шинстве случаев знак плюс не печатается. При подсчете числа пози- 
ций в формате поля необходимо предусматривать место для печати или 
перфорации знака. Поэтому, помня об этом, мы можем сказать, что 
формат 15 подразумевает целую константу, состоящую не более 
чем из четырех цифр, так как количество символов, образующих целую 
константу и указанное в этом формате, равно числу цифр плюс одна 
позиция для знака. 

Задание. Написать операторы чтения с перфокарт целых шес- 
тизначных чисел, являющихся значениями переменных: 


К,Г,М,М 


Порция 56 
Форматы ввода-вывода числовой информации 
(продолжение) 


Формат Е 


При вводе и выводе вещественных чисел с фиксированной запятой 
используется формат поля, обозначаемый буквой Е. Этот формат не- 
сколько сложнее формата І, так как в нем необходимо определять 
положение десятичной точки. 

Общая форма формата Е: 


Е.а 


где Е — символ типа формата, и — целое число без знака, определяю- 
щее общее количество позиций, включая колонки для знака и деся- 
ТИЧНОЙ ТОЧКИ (другими словами, общую ширину поля), 4 — количество 
цифр после десятичной точки. Для ввода перфорировать код десятич- 
ной точки на перфокарте не обязательно. 

Если десятичная точка отперфорирована, то число 4 не играет 
никакой роли: при ее отсутствии 4 определяет положение подразуме- 
ваемой десятичной точки. Если, например, формат имеет вид Е10.3, 
то подразумевается, что число занимает на перфокарте 10 колонок, 
и если на перфокарте не отперфорирована десятичная точка, то число 
будет введено в память ЭВМ так, как если бы десятичная точка стоя- 
ла между третьим и четвертым знаками справа. 
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Пример. 


ВЕАР” (9,18)А,В,С,Ю 
18 ЕОВМАТ(9Е!2.3,2Е10.1) 


При выполнении приведенного оператора ВЕАР первые два вводимые 
числа будут считаны с первых 24 позиций карты (по 12 позиций), при- 
чем первая позиция может быть занята знаком, всего до деся- 
тичной точки может стоять до 9 цифр, после — З. Соответственно, 
третье и четвертое числа занимают по 10 следующих позиций на той 
же карте, из которых первые заняты знаком, девятые — десятичной 
точкой, со вторых по восьмые включительно записаны цифры, 
после десятичной точки — одна цифра. 

При выводе информации формат Е определяет, что в строке, обра- 
зующей запись числа, будет напечатана десятичная точка, причем 
позицию, занимаемую этой точкой, необходимо учитывать при под- 
счете общего количества позиций в формате поля. Например, если 
необходимо напечатать вещественное число, изображение абсолютной 
величины целой части которого может достигать пяти значащих цифр, 
и если необходимо напечатать еще два знака после десятичной точки, 
то при подсчете общего количества позиций учитывается позиция 
лля знака числа, пять позиций перед десятичной точкой, десятичная 
точка и две позиции после нее. Таким образом, поле должно состоять 
по меньшей мере из девяти позиций, т. е. формат должен быть 
Е 9:2. 

Для облегчения чтения, т. е. для того, чтобы значения печатаемых 
величин. не сливались, следует предусмотреть некоторое количество 
дополнительных позиций, например выбрать формат Е12.2. 

‚Ниже изображены результаты вывода на печать чисел 23457. 75, 
— 98447.02 и — 10012.37. 

а) в формате Е9.2 


23457.75—98447.02—10012.37 
6) в формате Е15.2 


23457.75 1 |1 11| |1—98447.021 111 || 1—10012.37 


Задание. Напишите операторы, обеспечивающие выполнение 
следующих действий: 
1. Ввод с перфокарты значений переменных А, В, С, О, равных 
соответственно 375,4; 8325,75; 25,26; 1,125, используя формат Е 
9. Печать значений величин А и В в предположении, что эти зна- 
чения находятся в диапазоне от 1.0 до 275. и после десятичной точки 
будет напечатано не более двух знаков. 
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Порция 57 


Форматы ввода-вывода числовой информации 
(продолжение). 


Формат Е 


При использовании формата Е часто возникает одна трудность: 
что делать, если заранее неизвестно, каков порядок выводимой вели- 
чины? (Программист может не знать, какое количество позиций он 
должен предусмотреть для печати). Эта трудность снимается в слу- 
чае использования формата Е. Этот формат называется обычно фор- 
матом нормализованных чисел и определяет печать выводимой вели- 
чины с заранее заданным количеством значащих цифр в мантиссе 
и с десятичным порядком. Общая форма формата Е следующая 


Е.а 


где Е обозначает тип формата, о — общее количество позиций, а й — 
количество позиций между десятичной точкой и буквой Е. Обычно 
принимается 0 > а-+ 6. Выводимая величина в этом случае будет 
напечатана в виде 


- „ПП Пз. • .п,Е +11, 


Здесь и,, 1, і, — цифровые символы (1 < і < А). 
Например, вещественное число может быть представлено в виде: 


4-.154376Е 4-02 


Формат поля для этого числа будет Е12.6. 

Заметим, что если число выводится на печать с помощью формата Е, 
то мантисса его представляет собой правильную дробь величиной меж- 
ду 0.1 и 1.0. Для того чтобы выводимая информация была отпечатана 
в другом (иногда более привычном) виде, достаточно поставить перед 
буквой Е в формате поля масштабный множитель вида 


ИР 


При этом десятичная точка будет напечатана между п-й и (и -- 1)-й 
левыми значащими цифрами, а порядок будет автоматически умень- 
шен на й. | 


Для того чтобы число в предыдущем примере было отпечатано. 


в виде -|- 1.54376Е--01, надо формат поля задать так: 
1РЕ12.6 


Одним и тем же оператором ввода (вывода) можно осуществить 
ввод (вывод) данных разных типов, задавая надлежащим образом 
список форматов в операторе ЕОКМАТ. 
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УФЕ, 5-4.” 2 Рр 


Например: 
ВЕРА @, 53 КЕ; ХУ 
53 ЕОВМАТ (316, 2Е9 .0) 


ҰҮРІТЕ (1,1) 1, К, Г, Х, У 
1 РОВМАТ (3110,2Е1Б.4) 


Для того чтобы напечатать значения вещественных переменных в 
ноэмализованном виде, можно использовать формат Е: 


МЕТТЕ (3) 1, К Х, 
3 ЕОВМАТ (3110,2Е 16.7) 


Задание. В каждом из следующих заданий необходимо про- 
честь с перфокарты исходные данные, использовать считанные значе- 
ния для вычислений и напечатать результаты. Предположите, что каж- 
дое вводимое число занимает 10 колонок на перфокарте, используйте 
формат Е10.3 для ввода и формат Е16.6 для вывода. 

1. Ввести с карт значения переменных А, В, С, Х. 

Вычислить: 


АЯ р ар 
та = И а (0—8). зт (с ар а 
Напечатать значения переменных А, В, С, Х, ЭТК 


2. Ввести с карт значения переменных А, В, С. 
Вычислить: | 


ИЛИ 


Я Зин ре 
х = = 0 віп 6—69. 
Напечатать значения переменных А, В, С, Х. 


Порция 58 


Форматы ввода-вывода числовой информации 
(продолжение) 


Задание. Напишите последовательности операторов ФОРТ- 
РАНа, выполняющих следующие действия, предположив, что каждое 
вводимое данное занимает на перфокарте не более десяти колонок. 

1. Ввести с карт значения переменных А, Х, $ 

Вычислить: 


Напечатать значения переменных А, Х, $, У, 7 


2. Ввести с карт значения переменных АО, КІС, ТІ, ВВ2, ЗВТ 


_ Вычислить: 
ВК2 \* 
(Є: | ӨР | о === 
Е= АО тг руа Р ИЗВГ— КІС 
ве 


Напечатать значения переменных АО, КІЗ, ЅТІ, ВК2, ЗЕТ, Е 


Порция 59 


Форматы ввода-вывода числовой информации 
(продолжение) 


Формат С 


Формат С используется для ввода и вывода вещественных чисел. 
Общий вид формата С следующий: 


О.А, 


где С — символ формата, ш — общее количество позиций, занимае- 
мых данным при вводе-выводе, 4 — количество позиций после деся- 
ТИЧНОЙ точки. — | | 

Преобразование данных во внутреннее машинное. представление 
при вводе по формату С происходит точно так же, как при вводе по 
форматам Е и Е, поэтому на использовании формата С при вводе мы 
не будем подробно останавливаться. | 

Напомним только, что при вводе по формату 


1 РОВМАТ(С8.2) 


если поле вводимого числа содержит десятичную точку, то пара- 
метр 4 (в нашем примере — 2) игнорируется. Если же поле числа 
не содержит десятичной точки, то ее позиция определяется парамет- 
ром 4. 


Остановимся подробнее на выводе по формату @. При выводе по 
формату С представление числа при печати зависит от величины чис- 


ла. При выводе на печать вещественного числа А. = Х.10°, где 0.1 < 
< Х < 1.0, формат @ эквивалентен либо формату Ео.а либо формату 
Е.а в зависимости от величины порядка р; в последнем случае 
значение переменной выводится с постоянным числом значащих 
цифр: 4. УЧ. 

В табл. 15 приведена зависимость фактического формата от вели- 
`°чины порядка числа при выводе по формату Со.а: 
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Из этой таблицы видно, что формат Сш.4 в зависимости от величи- 
ны р интерпретируется так: | 


Е.а при р<0 
ао.а= }\ Еѕ.2—р,4х при 0<р< 4; з=ш—4 
Е.а при ръӣ 


В первом и третьем случаях, когда фактически используется фор- 
мат Е, для ширины поля 0 необходимо выполнять требование: 0 = 
= 4 + 6. При этом выводится число, имеющее 4 десятичных цифр и 
порядок. Например, значение переменной А, равное 2012345 102, 
при выдаче на печать в формате С11.4 будет иметь вид: 


1 1—.1934Е—09 


Во втором случае само число имеет р цифр в целой части и (4 — р) 
цифр после десятичной точки, поэтому общее число цифр равно: 


р+(9— р) = 
Таблица 15 
Величина порядка Фактический формат 
—] | Ео.а 
0 Еѕ.а, 4х 
| Еѕ.а — 1, 4х 
2 А Еѕ.4 — 2, 4х 
4—1 Е. 44 © 
а Еѕ.0, 4х 
а +1 Ешо.а 


Пример. 

После работы некоторой программы необходимо вывести на пе- 
чать значения переменных А, В, С, р, Е, Е, б, Н, соответственно 
равных: 


АО [9345510. ^ Е = 0.12345 . 10? 
В = 0.12345 . 10" Е = 0.12345 . 103 
С = 0.12345 . 10° С = 0.12345. 10* 
р: 0:19345`.:101. ^ Н 0.193455 108. 


в формате (11.4. Операторы МЕІТЕ и ЕОКМАТ можно записать так: 


ҮҮВІТЕ(1,5)А,В,С,р,Е,Е,0,Н | 
5 РОВМАТ(@11.4) ОИС 
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Так как в поле оператора ЕОВКМАТ в нашем примере задан только 
один формат поля, то при выводе значения каждой переменной опера- 
тор ЕОКМАТ будет просматриваться повторно, причем будет автома- 
тически происходить переход на следующую строку печати. Таким об- 
разом, приведенные выше значения переменных отпечатаются в стол- 
бец (над последним для наглядности указаны номера позиций в строке 
вывода): | | 


№№ колонок 


| 2345678 901234567890 
— .1234Е —02 
0.12346 —01 
0.1234 
— 1.234 
12 .34 
123 .4 
1234. 
0.1234Е +05 


Задание. 1. Покажите, какой вид будет иметь выводимая 
на печать в формате С15.4 информация, если требуется напечатать 
в два столбца значения следующих переменных: 


1 столбец 2 столбец. 
0:—0.287365. 105 —=— 0.32. 10-5 
Р=0.117.10* Т=—0.76.107° 
К=0.259253. 10 Ч=-—0.12345.10— 


2. Запишите операторы \УКТЕ и ЕОКМАТ, организующие пе- 
чать этой таблицы. 


Порция 60 


Форматы ввода-вывода числовой информации 
(продолжение) 


Формат О 


Формат Р используется для ввода-вывода значений переменных 
повышенной точности. Общий вид формата Ю следующий: 


Рш.а, 


где Р — символ формата, а о и 4 — имеют то же значение, что и в 
форматах Е и Е. 
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Пример. 
КА ҮУРІТЕ(1,5)А 
5 РОВМАТ(025.15) 


При вводе с перфокарт по формату Р данные перфорируются так же, 
как при вводе по формату Е, с той лишь разницей, что по формату р 
можно ввести число, имеющее больше значащих цифр, чем при вводе 
по формату Е. 

При выводе | по формату ЮР общий вид представления числа такой: 


0.0.003... рее, 


После десятичной точки сохраняется 4 десятичных цифр. Так как 
поле и должно содержать символы 0. и Р-Еее., которых всего 7, 
то для формата 0 должно выполняться соотношение: 


шо 4-7 
Пример использования формата Р: 


ВЕАр(2,7)1,К,А,В 
7 ЕОКМАТ(213,Е10.0,225.15) 


Имеется в виду, что ранее в программе переменная В была опреде- 
лена как переменная повышенной точности. . 

Задание. Напишите оператор ҒОКМАТ для ввода значений 
3-х переменных повышенной точности. 


Порция 61 


Формат ввода-вывода значений 
` логических переменных 


Формат Е 


Формат І. применяется для ввода-вывода логических переменных. 
Общий вид формата Г. следующий: 


[хо 


где Г, — символ формата, а ш — целое без знака, обозначающее коли- 
чество позиций, занимающих логической переменной. 
Пример: 
КЕАр(2,1)1112 
1 РОКМАТ(21.5) 


При вводе по формату 1. на перфокарте рассматривается поле ши- 
риной и колонок. Если в поле ш первым слева отличным от пробела 
символом будет буква Т, то соответствующей логической переменной 
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присваивается значение .ТЕОЕ., если первым символом, отличным 
от пробела будет буква Е, то соответствующей логической переменной 
присваивается значение ЕАГЗЕ.. За символами Т и Е в поле 0 могут 


` следовать символы, дополняющие до полных слов ТВОЕ и ЕАГЗЕ 


соответственно. 

Пример. 

Значения трех логических переменных 111, 12, [3 вводятся с пер- 
фокарт операторами: 


ВЕЛО_(2,31)1.1 1.2.1.3 
31 РОВМАТ(2Т.5,1.7) 


На перфокарте с данными отперфорировано: 


№№ колонок 


123 4 5678 9 0123456 7890 
Т 5 БАЗЕ 


(цифрами в верхней строке обозначены номера колонок на перфокар- 
те). Значения переменных после ввода: 


1:= КОЕ. 
К2= РАТЕ. 
ЕЗ=:ЕХЕЅЕ. 


При выводе по формату Г, в поле & левые (0 — 1) позиций запол- 
няются пробелами. Правым символом будет Т, если значение логиче- 
ской переменной равно .ТКИЕ., и Е, если значение логической пере- 
менной равно .ЕАГЗЕ. | 
Е рим: е р: | | 

В результате работы некоторой программы значения логических 
переменных 11 и 12 равны соответственно .ТКОЕ. и .ЕАТЅЕ.. Опе- 
раторами: | 


_МУВТТЕ(1,50)1.1 1.2 
50 РОВМАТ(1.4,1.6) 


будет отпечатано Т в позиции 4 и Е в позиции 10, как показано ниже: 


№№ позиций: 
1234567890 
Т Е 


Задание. Значения логических переменных К2, 1061, 1062 
вводятся с перфокарт операторами 


ВЕАр(2,5)В2,1081,10809 
5 ЕОКМАТ(31.5) 
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На перфокарте отперфорированы следующие данные 


№№ колонок 


| 2 
12345678901234567890 
ТУБ Е 


Напишите значения переменных В2, 0801, 1002 после ввода. 


| Порция 62 
Форматы ввода-вывода текстовой информации 


Формат Н 


В ФОРТРАНе имеются удобные средства для ввода и вывода тек- 
стовой информации. Это прежде всего формат Н. Общий вид этого 
формата следующий: ря 


&Н 


где Н — символ формата, ш — целое число без знака, определяющее 
количество символов, следующих непосредственно за буквой Н, ко- 
торые будут без изменения введены или напечатаны при выполнении 
соответствующего оператора КЕАР или \УКТЕ. Формат Н часто 
используется для печати заголовков (например, таблиц) или другой 
необходимой информации. Например, нам нужно напечатать заголо- 
вок «ПРОГРАММА ВЫЧИСЛЕНИЯ КОРНЕЙ КВАДРАТНОГО 
УРАВНЕНИЯ». Необходимые для этого операторы ФОРТРАНа мож- 
но записать в виде: | Тез 


ҮРІТЕ (1,5) 


5 РОВМАТ (50Н, „ПРОГРАММА, ВЫЧИСЛЕНИЯ КОРНЕЙ, , 


«КВАДРАТНОГО, „УРАВНЕНИЯ) 


Запись 50Н в операторе ЕОКМАТ при выводе означает: «Следую- 
щие за Н и пробелом 49 символов должны быть отпечатаны точно в той 
же последовательности, в которой они расположены в данном опера- 
торе ЕОКМАТ». | 

Поэтому машина отсчитает 49 позиций, непосредственно следую- 
щих за Ни пробелом, и отпечатает всю содержащуюся в них последо- 
вательность знаков, которая может состоять из любых символов, имею- 
щихся на устройстве вывода. То есть для вывода текстовых данных 
используется оператор МЕІТЕ, имеющий формат: | 

| \УКТТЕ(А,,^.) 
Пример записи операторов, организующих 
вывод текстовых данных 
ҮБІТЕ (1,10) м 
10 ЕКОКМАТ (35Н, РАСЧЕТ, ПОЛЕТА, „РЕАКТИВНОГО, , 
САМОЛЕТА) зи 


ТТ. 


Выполнение этих операторов вызовет печать текста: 
РАСЧЕТ ПОЛЕТА РЕАКТИВНОГО САМОЛЕТА. 
Для ввода текстовых данных по формату Н (если в соответствую- 


шем операторе ЕОВМАТ отсутствуют другие форматы полей кроме Н) 
используется оператор КЕАО, имеющий формат: 


БЕАР(А;,,) 
| Пример записи операторов, организую - 
ЩИХ ВВОД текстовых данных: 


ВЕАР” (2,7) 
7 ЕОВМАТ (26 НАААААААААААААААААААААААААА) 


При выполнении этих операторов произойдет замена текстовой 
информации внутри оператора ЕОКМАТ: 26 символов, следующих 
за кодом Н, будут заменены на 26 очередных символов, считываемых 
с перфокарты. Если на перфокарте, например, для ввода по этому 
формату содержалась информация 


‚ ВВОД, „ДВУМЕРНОГО, „МАССИВА, Р 


то после выполнения приведенных выше операторов текст в операторе 
РОК МАТ будет заменен введенным, т. е. получится: 


26Н, „ВВОД, „ДВУМЕРНОГО, „МАССИВА, ІР 


Формату Н не сопоставляется никакая переменная в списке опе- 
раторов ввода-вывода. Если в операторе ЕОКМАТ отсутствуют какие- 
либо другие форматы полей, кроме Н (а также формата Х, см. сле- 
дующую порцию), то операторы ввода-вывода не должны содержать 
списка переменных; вся пересылаемая информация будет состоять 
только из текстовых данных. 

Формат Н может использоваться в списке оператора ЕОКМАТ вме- 
сте с любыми другими форматами. Например, результатом выполне- 
ния следующей последовательности операторов: 


Ұ/РІТЕ (1,28) | 
28 ЕОВМАТ(АН, (Х=, „1РЕ!О.3) 


будет выдача на АЦПУ следующей строки: 
Х=1 1а 41 .374Е- 01 


если результат вычисления значения Х равен 13.74. 

Формат Н может находиться в списке форматов после любых дру- 
гих форматов, впереди них и между ними. Длина поля, задаваемого 
форматом Н, не должна превышать длину строки используемого уст- 
ройства ввода-вывода (например, длину строки на бумажной ленте 
при выводе на печать). 
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Задание. Напишите операторы ФОРТРАНа для вывода на ^ 
печатающее устройство заголовка программы вычисления скалярного 
произведения двух векторов, предполагая, что строка вывода содер- 
жит 128 символов. 


Порция 63 


Форматы ввода-вывода текстовой информации. 
(продолжение) 


Формат Х 


Формат Х используется для пропуска заданного количества ко- 
лонок перфокарты при вводе или вставки пробелов при выводе ин- 
формации. Общий вид этого формата следующий: 


ОХ 


где Х — символ формата. Если этот формат применяется при вводе, 
то 0 обозначает общее количество колонок, которые будут пропуще- 
ны в соответствующих позициях перфокарты; при выводе между соот- 
ветствующими полями при печати будет вставлено 0 пробелов. 

Примеры. 

1. Для ввода информации, отперфорированной на перфокарте в 
колонках 11—20 и 31—40 в формате Е10.3, следует написать операторы 
ввода в виде: | 


КЕДР (2,1) Х, У 
1 БОБМАТ (10Х ,Е10.3,10Х,Е10.3) 


9. Чтобы отпечатать заголовок в середине строки в 120 символов, 
мы должны операторы вывода записать в виде: 


Ұ/РІТЕ (1,2) 
2 ЕОВМАТ (40Х,36НТАБЛИЦА, ‚КОРНЕЙ, | КВАДРАТНОГО, 
1 УРАВНЕНИЯ) _ 
МВТТЕ (1,3) — 
_3 ЕОВМАТ 8х, 2нхІ, 20х,2НХ2) 
МУРТТЕ (1,4) Х 
4 ЕОВМАТ (49Х, И 8,8Х,Е20.8) 


Результатом выполнения этих операторов будет выдача на широ- 
кую печать следующей таблицы: 
ТАБЛИЦА КОРНЕЙ КВАДРАТНОГО УРАВНЕНИЯ 
ХІ Х2 


өрмә лек есе) о те еб мА өе Че Е ам Я л 0 к еј Тао, 7097. өғузооусе 
Ф661, 5 е. [а.о олер ісе ссе ө... У Л лБ н Те илы. Т, ере. тел еуез ө. оет 
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Задание. Напишите операторы ФОРТРАНа для вывода на 
печатающее устройство с 128 символами в строке результатов, полу- 
ченных при выполнении некоторой программы. В заголовке, поме- 
щенном в середине страницы, необходимо предусмотреть печать сле- 
дуюшего текста: 


НАЛИЧНЫЙ ЗАПАС ТОВАРОВ 


Далее должны быть отпечатаны заголовки колонок с наименова- 
ниями товаров: ТОВІ, ТОВ2, ТОВЗ, ТОВА. Расстояния между ко- 
лонками — 10 пробелов. Значения переменных ТОВІ, ТОВ2, ТОВ, 


ТОВА отпечатать в формате Е10.0. 


Порция 64 


Форматы ввода-вывода текстовой информации 
(продолжение) 


_ Формат А 


^ Формат А используется для ввода и вывода текстовых данных. 
Идентификаторы переменных, к которым применяется формат А, 
указываются в списке соответствующих операторов РВЕАр или 
МРВІТЕ. | 

Общий вид формата А следующий: 


До 


где А — символ типа формата, а ш — целая константа без знака, ука- 
зывающая количество символов, которые необходимо ввести или вы- 
вести. | | 
Пример. 
! ҮРІТЕ (1,1) А, В 
1 РОВМАТ(А7,А6) 


Если значением переменной А является строка символов 
‚ ВЫВОД, |, а переменной В — ТЕКСТА, то при выполнении запи- 
санных выше операторов будет напечатано: 


ВЫВОД ТЕКСТА 


Если о, указанное в формате, равно числу символов соответствую- 
щей переменной списка, то эта переменная будет прочитана или вы- 
ведена без изменений. 

Если & недостаточно для размещения веех символов соответствую- 
щей переменной, то сохраняются левые символы строки. Если размер 
ш больше необходимого, то строка символов выравнивается к правому 
краю, а слева поле ш дополняется пробелами. · 
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| 
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Обозначим через п размер поля переменной, указанной в списке 
оператора ввода-вывода и связанной с форматом А..Если целое 0, 
указанное в формате А, равно п, то все поле переменной будет за- 
полнено считываемыми символами при вводе или все содержащиеся 
в нем символы будут выведены при выводе. Если о < п, то только 0 
самых левых позиций строки значений переменной будут участвовать 
в операции; если ою > и, то эта строка будет выравнена к правому 
краю, а слева свободные & — п позиций ее поля будут заполнены 
пробелами. 

Как было отмечено в порциях 43 и 44, в форматах операторов 
ВЕАО и МБІТЕ вместо метки соответствующего оператора ЕОКМАТ 
может быть указан идентификатор массива. В этом случае начальная 
часть информации в указанном массиве, взятая в естественном поряд- 
ке, должна представлять собой правильную спецификацию формата, 
однако не содержащую форматов типа Н. Как и в случае оператора 
ГОВ МАТ, спецификация формата должна быть заключена в скобки. 

Для размещения спецификации формата в массиве может быть 
использован оператор КЕАР с форматом А или оператор начальных 
данных РАТА (см. порцию 97). 

Задание. Значением переменной А является текст. АВСО, 
а переменной В — текст ЕЕСН. Напишите операторы для вывода на 
печать текста АВЕЕ. 


Порция 65 
Бланк записи исходных данных 


На рис. 19 изображен бланк записи исходных данных для 
ФОРТРАН-программы. Данные на бланке должны размещаться с 
первой позиции строки и точно в заданном формате. 

Напоминаем еще раз, что точку в числах, записываемых в форма- 
тах Е, Е, Ди С, можно не ставить. Она автоматически проставляется 
машиной в том месте, которое указано в формате. Например, для пе- 
ременных А, В и С, имеющих значения — 121.215, 17.213.— 7.101 
и используемых в операторах 


ВЕАО(0, ЗА. В,С 
3 РОВМАТ(ЗЕ10.3) 


значения на бланке данных можно записать, как показано на рис. 20 
(а, б или в). 

Задание. Запишите на бланке исходных данных в формате 
Е9.3 значения переменных С, Р, Е, {равные соответственно 725,32; 


8900,01 и 1,325. 
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Рис. 20 


Порция 66 
Бесформатный ввод-вывод 


Кроме способов ввода-вывода информации по заданному формату, 
описанных в порциях 45—64, в ФОРТРАНе имеются средства для 
ввода-вывода данных без заданного формата, т. е. в виде «образов 
оперативной памяти» (в машинном представлении). Дело в том, что при 
выполнении ФОРТРАН-программ, работающих с большим объемом 
данных, часто используются лента и диски для временного запоми- 
нания информации, когда не хватает места в оперативной памяти. 


В таких случаях информация после чтения должна иметь точно такой же - 


ал -рзь 


вид, что и перед записью. Если начать выполнять форматные преоб-:- 


разования при чтении, то это будет просто потерей времени. Поэтому 
в язык включены варианты операторов КЕАР и \МЕТЕ, допускаю- 
щие бесформатный ввод-вывод данных. Формат этих операторов 
следующий: 

КЕАО(и)Е 
ИЛИ ВЕАО(и) 

УРІТЕ(и)А 


Здесь и — целая константа без знака — номер устройства ввода- 
вывода или идентификатор целой переменной, определяю- 
щей этот номер; 

Е — список переменных, значения которых, рассматриваемые 
как очередные символы, поступающие с этого устройства, 


вводятся с устройства с номером и или выводятся на это | 


устройство. 


Порция 67 
Операторы перехода 


Выполняемые и невыполняемые операторы 


Операторы языка ФОРТРАН, рассмотренные в предшествующих 
порциях, позволяют производить весьма сложные вычисления, ввод 
и вывод информации, но все они могут выполняться только в фикси- 
рованной последовательности — в порядке их записи. Для изменения 
порядка выполнения операторов в ФОРТРАН-программе использу- 
ются специальные операторы передачи управления, или перехода. 

Но прежде чем перейти к более подробному знакомству с опера- 
торами управления и изучению методики их использования, давайте 
запомним с тем, чтобы больше к этому не возвращаться, что в случае 
отсутствия каких-либо операторов передачи управления вычисли- 
тельная машина будет выполнять операторы ФОРТРАНа последова- 
тельно в порядке их следования в программе. 
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Как было отмечено ранее, в языке ФОРТРАН имеются выполняе- 
мые и невыполняемые операторы. 

Вынолняемые операторы являются для вычислительной машины 
командами для выполнения некоторого действия, например вычисле- 
ния и присвоения значения переменной (равного значению соответст- 
вующего арифметического или логического выражения), считывания 
информации, вывода информации на печать и т. д. Из ранее рассмот- 
ренных выполняемыми операторами являются операторы присвоения, 
‚ операторы КЕАР и МЕІТЕ. 

Невыполняемые операторы (например, оператор ЕОКМАТ) со- 
держат информацию относительно вводимых данных, их размещения 
на перфокарте или на бумажной ленте при печати или в памяти ма- 
шины. 

Задание. Как будут выполняться операторы в ФОРТРАН- 
программе в случае отсутствия операторов передачи управления? 


Порция 68 
Операторы перехода (продолжение) 


Безусловный оператор СО ТО 


В языке ФОРТРАН имеется 3 вида операторов перехода, или опе- 
раторов СО ТО: 

1. Безусловный оператор СО ТО. 

2. Оператор СО ТО по вычислению. 

3. Оператор СО ТО по предписанию. 

В этой порции мы рассмотрим первый тип оператора — безуслов- 
ный оператор СО ТО. Ем 

Это наиболее простой из всех операторов перехода. Формат опера- 
тора следующий: 


СО ТОп 


Здесь и — метка некоторого оператора, содержащегося где-либо в 
той же программной единице. Действие оператора состоит в том, что 
после него следующим будет выполняться оператор программы, метка 
п которого указана в операторе СО ТО. В этом случае принято гов>- 
рить: управление последовательностью выполнения операторов про- 
граммы (или, короче, управление) передается оператору с меткой п 
(или, короче, оператору и). В качестве примера рассмотрим фрагмент 
программы: 


15 ХАК рк 0 


Здесь сначала. присваивается ‘значение переменной А, затем оно. пре- 
образуется в данное целого типа, обозначаемое идентификатором К. 
Далее следует оператор СО ТО 15, который указывает, что следую- 
щим должен выполняться оператор 15 (а не 14). 

Оператор с меткой п, указанной в операторе СО ТО и, может встре- 
чаться в программе до или после данного оператора СО ТО, причем 
в языке нет никаких особых ограничений на метки, которыми можно 
снабжать операторы; напомним только требование: в данной про- 
граммной единице никакие два оператора не могут быть помечены 
одинаковыми метками. 

При использовании операторов СО ТО и необходимо соблюдать 
следующие правила: Р 

Правило 1. Метка оператора представляет собой последователь- 
ность не более чем из пяти цифр. Далее, метка в операторе СО ТО 
должна быть меткой некоторого выполняемого оператора, а не опера- 
тора, скажем, ЕОКМАТ. То есть, управление с помощью оператора 
СО ТО может быть передано только выполняемому оператору 
ФОРТРАН-программы. 

Правило 2. Оператор, который следует за безусловным операто- 
ром СО ТО, должен быть снабжен меткой. | 

В нашем примере оператору, следующему за СО ТО, присвоена 
метка 14. Посмотрите, что произошло бы, если бы оператор, следую- 
щий за безусловным СО ТО, не был бы помечен. При выполнении опе- 
ратора СО ТО управление было бы передано оператору 15, а непоме- 
ченный оператор, который следует непосредственно за оператором 
СО ТО, никогда не выполнился бы, так как непомеченному оператору 
может передать управление только непосредственно предшествующий 
ему оператор. _ | | 

Таким образом, непомеченному оператору управление передает 
предшествующий ему в записи оператор (а если он будет первым опе- 
ратором в программной единице, то получит управление по вызову 
к выполнению этой единицы); если оператор помечен, то ему может 
быть передано управление по его метке какими-либо операторами пе- 
рехода, в которых используется эта метка. 

Задание. Перечислите правила использования безусловного 
оператора СО ТО. | 


Порция 69 | 
Операторы перехода (продолжение) 
Оператор СО ТО по вычислению 


Оператор СО ТО по вычислению позволяет осуществлять разветв- 
ления в программах. Формат оператора имеет вид 


СО ТО (и), т 
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где и — список меток выполняемых операторов, т — идентификатор 
переменной целого типа, называемой управляющей переменной; 
область допустимых значений управляющей переменной составляют 
пелые положительные числа от 1 до |, где ј — число меток в списке 
оператора СО ТО. | 
Пример оператора СО ТО по вычислению: 


СО ТО(12,29,34,2),К 


Выполнение этого оператора состоит в выборе одной из возможных 
ветвей вычислений, а именно: если К = 1, осуществить переход к опе- 
ратору с меткой 12; если К = 2, перейти к оператору с меткой 29, 
если К = 3, перейти к оператору с меткой 34, и при К = 4 перейти 
к выполнению оператора с меткой 2. 

В общем случае оператор СО ТО по вычислению осуществляет 
передачу управления оператору, метка которого занимает ту пози- 
пию в списке меток данного оператора, порядковый номер которой 
в списке меток равен значению управляющей переменной. 

При использовании оператора СО ТО по вычислению необходимо 
соблюдать следующие правила: 

Правило 1. Метки операторов, которым возможна передача управ- 
ления данным оператором СО ТО, должны быть заключены в скобки. 
Все эти метки должны быть разделены запятыми. 

Правило 2. Запятая должна быть проставлена и после скобок. 

Правило 3. Управляющая переменная должна быть целого типа. 
Эта переменная может принимать различные положительные цело- 
численные значения, максимальное из которых определяется количе- 
ством м элементов в списке меток этого оператора, т. е. она может при- 
нимать значения в диапазоне от 1 до й и тем самым определять метку 
для передачи управления. Если управляющая переменная принимает 
в момент выполнения оператора СО ТО по вычислению значение вне 
указанного диапазона значений, то этот оператор считается неопре- 
деленным. 

Пример 1. | 

Пусть целая переменная с идентификатором КАТЕТ может при- 
нимать значения, равные 34, 35 или 36. Если КАТЕТ = 34, то нам 
нужно передать управление оператору 235, если КАТЕТ = 35, то 
управление передается оператору 236, если КАТЕТ = 36, то оператору 
99. Указанное разветвление можно осуществить посредством следую- 
щих двух операторов: | 


КАТ 3 
СО ТО (935, 236, 99), :Ј 


Пример 2. аа 
‚ В программной единице вычисляется некоторое целое М. При этом 
требуется в зависимости от того, дает ли деление М на число 5 в остат- 
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ке 0, 1, 2, З или 4, перейти соответственно к одному из операторов, 
помеченных метками 


4,12,2,7,3 


Требуется составить фрагмент программы, обеспечивающий над- 
лежащее разветвление. 

Введем переменную целого типа № и присвоим ей значение следую- 
щего выражения: 


М—М№/5+5-- 1 


Обращаем Ваше внимание на то, что согласно определению операции 
деления для целых выражение №/5+5, вообще говоря, не равно М, 
а равно разности числа М и остатка от его деления на 5. Таким обра- 
зом, фрагмент программы для решения этой задачи можно записать 
так: : 
№ = М—М/5»6- 1 
СО ТО (4,12,2,7,3), №5 


Задание. Определите ошибки в записи операторов СО ТО по 
вычислению и напишите операторы правильно: 


а) СО ТО23,241В 
6). СО ТО(23,941 — 
в) СО Т0(23,24,25),А 
г) СО Т0(93,94.),К 


Порция 70 
Операторы перехода (продолжение) 


Оператор присвоения метки А$$1СМ 


Сам по себг оператор А55І8М не является оператором передачи 
управления, но результат его выполнения используется специальным 
оператором СО ТО — оператором СО ТО по предписанию. | 

Общий формат оператора А$$1СМ следующий: 


А$ЗСМ п ТО т 


Здесь т — идентификатор целой переменной, 
п — метка одного из выполняемых операторов, входящих в 
состав той же программной единицы. 
Действие приведенного оператора А$З1@М состоит в присвоении 
идентификатору т значения «метка п». 
Например, результатом выполнения оператора 


А$ЗТОМ 10 ТОК 
является присвоение переменной К значения «метка 10». 


Программа может содержать несколько операторов АТОМ, при- 
сваивающих те или иные значения одной и той же переменной. Тем са- 
мым один и тот же оператор СО ТО по предписанию, содержащий дан- 
ную целую переменную, будет определять переход на тот или ИНОЙ 
оператор программы в зависимости от текущего значения этой пере- 
менной. 

Идентификатор т, используемый в каком-либо из операторов пе- 
рехода по предписанию в некоторой программной единице, может быть 
использован в этой же программной единице как идентификатор не- 
которой переменной целого типа. 

Однако эти два вида использования — в операторах перехода по 
предписанию и каких-либо других операторах — по существу раз- 
личны и каждому из них должно предшествовать разного вида при- 
своение значения этому идентификатору: 

для оператора СО ТО по предписанию — посредством оператора 
АТМ; | 

для других операторов — прочие виды определения (например, 
через арифметический оператор присвоения или оператор ввода). 

Таким образом, после присвоения идентификатору т значения 
метки посредством оператора А5516СМ№, этот идентификатор может 
быть использован только в операторах СО ТО по предписанию до 
тех пор, пока ему не будет присвоено некоторое значение, например 
посредством оператора ввода или оператора присвоения. С другой 
стороны, если идентификатору присвоено значение посредством, на- 
пример, оператора ввода, он не может быть использован в операторе 
СО ТО по предписанию,-пока ему не будет присвоено значение \неко- 
торой метки оператором А$ЗЗТ@М. | 4 

Разумеется, значение никакого идентификатора не может быть 
использовано до тех пор, пока оно ему не присвоено. 

Задание. Запишите оператор присвоения переменной І. зна- 
чения метки 31. | 


Порция 71 
Операторы перехода (продолжение) 


Оператор СО ТО по предписанию 


Формат оператора СО ТО по предписанию имеет вид: 
СОТО, (па, па: 
Здесь т — идентификатор переменной целого типа; 
Пу, По, ... П; — список меток тех операторов, которым возмож- 


на передача управления данным оператором СО ТО по предписанию. 
Метки из указанного списка (и только эти метки) могут встречаться · 
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в соответствующих операторах АЗЗТ@М, связанных с данной пере- 
менной т, называемой управляющей переменной этого оператора. 
Оператор СО ТО по предписанию передает управление оператору 
с той меткой, которая в последний раз была присвоена одним из опе- 
раторов А551СМ№ переменной т. 
При несовпадении в момент выполнения некоторого оператора 
СО ТО по предписанию значения переменной т ни с одной из имею- 


щихся в его списке меток этот опера- 
тор считается неопределенным. 

Список меток в операторе СО ТО 
по предписанию может содержать любое 
число меток (однако такое, чтобы общая 
длина данного оператора не превышала 
допустимые размеры для операторов 
языка, т. е. 1320 символов).. 

Примеры использования операторов 
А$5ІСМ и СО ТО по предписанию: 


АЗЗТОаМ 20 ТО МІ 
СО ТО МІ, (00, 21, 29) 
Следующим после оператора @О ТО 


будет выполнен оператор с меткой 20, 
если между этими двумя операторами 


не выполнялся никакой другой оператор * 


АЗЗТ@аМ или оператор перехода. Кроме 
того, между указанными операторами 
также не должны выполняться никакие 


операторы, присваивающие переменной 


МІ какие-либо значения. 
На рис. 21 схематически показано 
использование операторов А55І8М№ и 


45516 10 ТО М 
60 105 
45516 1! ТО М 
60 ТО 5 


А5516Н 42 ТОМ 
60 705 


А5516М 13 ТОМ 
60 Т0 5 

АЗ 516М 14 ТОМ 
60 10 5 

ТОР 

ЕМ 


Рис. 21 


СО ТО по предписанию для обращения к некоторому участку про- 
граммы с последующим возвратом из него. 

Задание. В каждой из следующих последовательностей опе- 
раторов АЅ5ІСМ№ и СО ТО по предписанию допущена ошибка. Най- 
дите ее и запишите эти операторы правильно: 


а) А55ІС\ 3 ТО ТВ г) ІВ 3 


СО ТО 186(1,2,3,4,5) СОТО ІКВ,(1,2,3,4) 
б) АЅ5І0М 7 ТО КЗ5 д) АЗЗТОМ 3 ТО 1ВВ 
СО ТО КЗ5,(3,15,23,53) Е=1ВВ-1 


в) АЅ5І0М 23 ТО АВВ СО ТО ІКВ,(1,2,3,4,5) | 


 СОТОАВЬ, (19,20,21,99,93) 
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| Порция 72 
Операторы перехода (продолжение) 


Операторы перехода СО ТО по вычислению 
и по предписанию 


Сравним операторы перехода языка ФОРТРАН, предназначенные 
для реализации разветвлений в программах. | | 

Оба эти оператора содержат заключенные в скобки непустые спи- 
ски меток некоторых выполняемых операторов, принадлежащих той 
же программной единице, в которой записан каждый из этих опера- 
торов. | 

В каждом из этих операторов используется идентификатор пере- 
менной целого типа (в операторе перехода по предписанию он следует 
непосредственно после служебного слова СО ТО, в операторах пере- 
хода по вычислению — после заключенного в скобки списка меток). 

Однако переменная в операторе СО ТО по вычислению является 
обычной переменной целого типа, которая может быть использована 
наряду с оператором СО ТО и в других операторах (если, конечно, 
этому использованию не будет предшествовать оператор 'АЗЗТОМ, 
присвоивший ей значение метки). 

Например, вполне допустима такая последовательность опера- 


торов: Я 
г=1 
К = 1+ 
| = 1+М 


СО ТО (14, 2, 8, 11), І 


От этой переменной при ее использовании в операторе СО ТО по 
вычислению требуется лишь, чтобы она принимала одно из значений 
1, 2, ..., п, где п — количество меток в списке такого оператора. 
Значение этой переменной само не является меткой, а лишь опреде- 
ляет позицию той метки в их списке, по которой должно быть переда- 
но управление. Очевидно, что следующая последовательность опера- 
торов в языке ФОРТРАН является недопустимой: 

1= 2 

АЅЅ5І8АМ 4 ТО 1 

СО ТО (2,4,7,12),1 


поскольку использованию идентификатора 1 в операторе перехода по 
вычислению не может предшествовать присвоение ему значения опера- 
тором АЗЗТОМ. | 

С другой стороны, переменная в операторе СО ТО по предписанию, 
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как было отмечено в предыдущей порции, является особой перемен- 
ной, использованию которой должно предшествовать присвоение ей 
значения метки оператором АЗЗ1ОМ. Напомним, что от последнего 
требуется, чтобы оно совпадало с одной из меток, составляющих спи- 
сок соответствующего оператора. перехода. 

Задание. 1. Изменится ли смысл оператора СО ТО по пред- 
писанию при перестановке местами входящих в его список меток? 
А смысл оператора бО ТО по вычислению? 

2. Изменится ли смысл оператора СО ТО по предписанию, если 
входящий в него список меток дополнить еще одной меткой? А смысл 
оператора СО ТО по вычислению? 

З. Определите, допустимы ли следующие последовательности опе- 
раторов на ФОРТРАНе: 


а) К=3 в) Г.=3 


СО ТО К, (19,11,13) АЅ5І0М 5 ТО К 
АЅ5І0М 6 ТО 1 


6) К=3 АЅ5І0М 7 ТО М 


60 ТО (121119 К во ТО (Кл,М), 
4. Определите, какие из приведенных пар операторов эквивалентны: 
а) СО ТОК, (12,13,14) в) 90 ТО (12,13), К 


СО ТО К, (14, 19, 13) СОТО Зо) 
б) СО ТО (12,13,14), Кр, г) СО ТО К, (19, 13,12) 
СО ТО (14,13,12), К СО ТО К, (12, 13) 
Порция 73 


Операторы перехода (продолжение) 
Арифметический оператор 1Е 


В языке имеется две разновидности операторов перехода ІЕ; . 
арифметический оператор 1Е; не 
логический оператор ТЕ. 

В этой порции мы рассмотрим первый из операторов — аа 
тический оператор ІЕ. 

Арифметический оператор ТЕ позволяет передавать управление 
одному из трех операторов в зависимости от знака некоторой перемен- 
ной арифметического типа (целой, вещественной, повышенной точ- 
ности) или какого-либо арифметического выражения. 

Общий формат оператора ІЕ следующий: 


ТЕ (<) ил, по, Пз 
где о — арифметическое выражение; 
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пу, 1, Из — Метки операторов, которым мсжет быть передано уп- 
равление данным оператором ІЕ. Действие оператора сводится ‘к сле- 
дующему: 

если арифметическое выражение ос в скобках отрицательно, то уп- 
равление передается оператору с меткой п1; 

если это выражение равно нулю — оператору с меткой п; 

если оно положительно, то управление передается оператору с 
меткой и. | | 

Давайте разберем следующий пример. Предположим, что по ходу 
выполнения программы необходимо вычислить У как функцию Х 
по одной из следующих формул: 


0,5Х + 0,957, если Х < 9,11; 
У = {0,7Х - 0,533, если Х >21; 
0,6Х - 0,745, если Х = 2,11; 


Предположим, что значение Х было вычислено предыдущими 
операторами, и нам нужно написать фрагмент программы для вычи- 
сления значения У. Этот фрагмент может быть 
представлен в виде: 


1 (Х—2.11)50,40,30 
50 У=0.5=Х -- 0.957 
СОТТО 5 >. 
40 Ү=0.6+Х --0.745 
СО ТО 5 
30 Ү=0.7+Х -- 0.533 
о (продолжение программы) · 


у= 09Х+0,957 


У =06Х + 0,745 


у= 0,7Х +055; 


= 


Оператор 
сметкой о 


„Рис. 292 


Обратим Ваше внимание на необходимость 
двух операторов СО ТО 5, включенных в при- 
веденный фрагмент программы. Действитель- 
но, при отсутствии, например, первого из них, 
независимо от того, что выполнялся оператор с 
меткой 20, выполнялся бы оператор с меткой 40, что при Х—2.11 < 0 
приводило бы к неверному результату. 

Для большей наглядности представим ход основных вычислений 
в нашем примере в графическом виде — в виде блок-єхемы (рис. 22). 

Рассмотрим еще один пример. 

в Нужно написать фрагмент программы для вычисления значений 
ункции, 


х 3, если к< 0 

х -5іп (3х), если 0 < х< 1,5 
Г(х) = х? — 1, если 1,5 < х< 2,5 

х— 5, если 2,5< х 
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используя арифметический оператор ІЕ. · 5) 
Необходимый фрагмент может быть представлен в виде: 


ІЕ(Х)3,3,6 
3 Е=Х- 3.0 
СО ТО 22 
6 ІЕ(Х—1.5)9,12,192 
9 Е= Х*513(3.+Х) 
СОО 22 
12 1 (Х—2.5)15,15,18 
15 Е=Хж2— 1.0 
СӨ 70529 
18 Е=Х—5.0 
22 (продолжение программы) 


Заметим, что наличие всех трех операторов СО ТО 292 является 
необходимым и обеспечивает выход в одну и ту же точку программы, 
на ее продолжение, независимо от того, на какую из ветвей (на какой 
оператор присвоения) было переведено управление в результате вы- 
полнения одного из арифметических операторов ІЕ. Обращаем Ваше 
внимание на то, что каково бы ни было значение Х, переход будет 
осуществлен только по какой-либо одной из этих ветвей. 

Задание. Напишите фрагменты программы для вычисления 
значений следующих функций: 

а) Г) 20и если х < 0; 

К т х, если х > 0). 
| х — 1, если х < 10; 
910) = |з 4 если х = 10; 
7,1х — 5,6, если х > 10. 

Подразумевается, что каждый такой фрагмент является частью 
некоторой программы, поэтому писать полную программу с операто- 
рами ввода-вывода не требуется. 


Порция 74 
Операторы перехода (продолжение) 


Логический оператор 1Е 
Логический оператор ІЕ имеет формат: 
| Е (В) 5 


Здесь В — логическое выражение; | 
_ 5 — любой оператор ФОРТРАНа, кроме РО (о нем будет речь 
далее) и логического ІЕ. Г 
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Логический оператор ТЕ выполняется следующим образом: сна- 
чала проверяется истинность логического выражения В, содержаще- 
гося в скобках в формате оператора. Если значение логического выра- 
жения истинно (.ТВОЕ.), то следующим выполняется оператор 5. 
Если логическое выражение ложно (.ЕАТЗЕ.), то оператор $ пропу- 
скается и управление передается оператору, который должен выпол- 
няться в программе следующим. 

Примеры логических операторов ІЕ: 


ІЕ(А.МЕ.В) К=(К—5)*=2 
1Е(А.СЕ.В) СО ТО _215_ 
ІЕ(.МОТ .(О.ОВ.У)) А=А--0.1 


‚ В том случае, когда логическое выражение, содержащееся в логи- 
ческом операторе ІЕ, является отношением, этот оператор может быть 
заменен двумя операторами, одним из которых является арифмети- 
ческий оператор 1Е. Например, первый оператор в мо выше 
панмаре можно заменить двумя операторами: 


ТЕ(А—В)І, оди! 
ІЕЕ (К— 2 


2 (продолжение программы) 


Ниже приведены два фрагмента программ, гае вычисле- 
ние значения функции: 


х? — (ё, если х>0Ли>0; 
Ху, если х< 0 Л у> 0; 
б, 0) = у. ѕіп (3х), если № + у < 1 Лх<0 Лу 


ху, если х2 + 0? 24 Л х2>0 Л КР 
при заданных ее параметрах. Эти два фрагмента эквивалентны. 


1) [Е(Х.ОЕ.0..АМО.У.СТ.О.) СО ТО 5 

ТЕ(Х.ТГТ.0.0.АМО.У.СТ.О.) СО ТО 10 
ІЕ(Х»2--Үжғ02 ТЕ.1..АМ”О.Х.ІТ.О..АМО.ҮЛТЕ.О.) СО ТО 15 
ІЕ(Х»+2-4-Үх02.СЕ.4..АМР”О.Х.СТ.0..АМО.ҮІТ.0)Е = ХУ 
СО ТО 20 

5 Е Хж2—Үж2 
СО ТО 20 

10 Е=Х»У 
СО ТО 20 

15 Е= Ү»*913(3.*Х) 

20 (продолжение программы) 


2) ТЕ(Х.СЕ.0..АМ№”.Ү.СТ.0)Е= ХҮ 
ІЕ(Х.ІТ.0..АМ№”.Ү.СТ.0)Е=Х«Ү 
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-Е(Хж»24- Уж«2.ГЕ.1..АМО.Х.ТТ. 
1(Х24- Үж02.8АЕ.4. АМР”. Х.атТ. 
(продолжение программы) 


Эквивалентность второго фрагмента первому следует из того, что ло: 
гические выражения, используемые в операторах ІЕ, являются взаим- 
но исключающими: только одно из них может быть истинным, каковы 
бы ни были входящие в эти выражения значения Х и Ү. Поэтому из 
числа операторов присвоения, входящих в логические операторы 1Е, 
только один будет выполнен. 

Вместе с тем заметим, что, хотя второй из приведенных фрагментов 
короче по записи, по времени выполнения в среднем он менее эконо- 
мичен, т. к. при его выполнении осуществляется проверка истинности 
всех логических выражений, входящих во все операторы 11, даже пос- 
ле того, когда какое-либо из этих выражений окажется истинным. 

Задание. 1. Напишите на языке ФОРТРАН фрагмент про- 
граммы для решения следующей задачи: 

Если результат логического умножения переменных 11 и Е2 равен 
ТКОЕ., выполнить оператор А = А-+1. и перейти к выполнению 
оператора с меткой 2; если он равен .ЕАГ.$Е.— непосредственно пе- 
рейти к оператору с меткой 2. 

2. Напишите фрагмент программы для вычисления значения сле- 
дующей функции, используя логический оператор ІЕ: 


2х-— соѕ х, если х > 12,7; 
Ї (0) = 1 2 
х? -|- 4х, если 71297 


ЗАМ. Е.0)Е=У 5-51. 
Т:0)Е=Х У 


ь> 
В» 
2, 


Порция 75 
Оператор РАОЅЕ 


Оператор РАЏОЅЕ используется для временной остановки выпол- 
нения программы. Формат оператора РАОЅЕ следующий: 


РАОЗЕ я 
РАОЗЕ 


Здесь и — целое восьмеричное число без знака, состоящее не более 
чем из пяти цифр. 
Примеры записи оператора: 


РАОЦЪЗЕ 1 
РАОЅЕ 12 


Оператор РАОЅЕ вызывает прерывание (паузу) в выполнении про- 
граммы. В момент прерывания по оператору РАОЅЕ на стандартное 
устройство вывода выводится целое без знака и, указанное в этом 


ИЛИ 


операторе. В приведенных примерах при остановке будут выданы 
записи: 


] 
12 


После прерывания выполнения программы по оператору РАОЅЕ 
можно либо снять программу, либо продолжать ее выполнение с пре-. 
рванного места. Заметим, что решение о возобновлении выполне- 
ния программы не находится под управлением самой программы и 
должно исходить извне. Другими словами, непосредственно в языке 
ФОРТРАН нет средств для задания этого решения. Оно должно 
исходить от операционной системы, под управлением которой выпол- 
няется данная программа. 

Оператор РАОЅЕ чаще всего используется для проверки логики 
программы при отладке. 

Задание. Какую функцию выполняет в программе оператор 
РАОЅЕ? 


Порция 76 
Оператор ЗТОР 


Оператор ЭТОР завершает работу программы и передает управ- 
ление программе-монитору иена) 
Формат оператора ТОР: 
ЭТОР п 
ИЛИ 
ТОР 
где п — целое восьмеричное число без знака, содержащее от одной 
до пяти цифр. 
При остановке программы по оператору ЅТОР на стандартное 
устройство вывода выдается запись 


п 


Примеры записи оператора: 


5ТОР 15 
ЗТОР З 
ТОР 


Таким образом, целое, указанное в операторе ЗТОР, может быть 
использовано, как и в операторе РАОЅЕ, в качестве признака, когда 
в программу включается несколько таких операторов для определе- 
ния того, по какому из них произошел останов. 

Операторы ТОР являются всегда последними выполняемыми опе- 
раторами программы, поэтому они могут быть помещены только в 
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главной программе; наличие хотя бы одного оператора ТОР в глав- 
ной программе обязательно. 

Задание. Какую функцию выполняет в программе оператор 
эгОР? 


Порция 77 
Конечная строка 


Каждая программная единица должна заканчиваться конечной 
строкой, указывающей транслятору конец программной единицы. 
Конечной строкой называется такая строка, в колонках с 7-ой по 
72-ую которой в любых позициях записываются символы Е, М, Р, 
стоящие в указанном порядке, а в остальных (в том числе и между бук- 
вами Е, М, р) проставлены пробелы. 

В каждой программной единице может быть только одна конеч- 
ная строка. 

Задание. Допустимы ли приведенные ниже записи конечной 
строки на языке ФОРТРАН? 


№№ позиций 
1 9 3 4 5 6 7 
1234567890123456 7901234567890. 234567890123456789012345678 9012345678901284 5678 
М 


б/ ЕМО 
г/ Е М р 


ИТОГОВЫЕ ЗАДАНИЯ 


1. Напишите арифметические операторы присвоения для вычи- 
сления значений по следующим формулам: 


а) а 77. р) 


аЗ 
бт=в.К+-— (ИКЕ А УКЕ БА) 
2. Напишите операторы присвоения значений следующих выска- 
зываний переменной логического типа РАМ: 
а) па о = 11 
б) Л х0 у 


3. Напишите фрагмент программы на ФОРТРАН для выполнения 


следующих действий: 
Ввести с карт значения переменных К, 5, Т, отперфорированные 
в формате Е 8.3. | 


4 5—1609 97 


Вычислить: 
0 9 9 с р? == СЗ 
ИЕ 
В? — 315 --Т.и 


Напечатать значения переменных В, 5, Т, Х в формате Е15.8. 
4. Напишите программу вычисления значения Е как функции х 
согласно формулам: 


—— 
„о — 


х- 20, если х<0; 

х2—6, если 0<х <10; 
М6) = |ә 5, если 10<х<19; 

4х3 — 10, если & > 10, 


для набора значений х. | 

С перфокарты требуется прочесть начальное значение Х, значение 
приращения Р и конечное значение Х (ХК). 

Результаты вычислений необходимо оформить следующим образом: 

а) напечатать в середине строки заголовок таблицы: 

ВЫЧИСЛЕНИЕ ЗНАЧЕНИЙ ФУНКЦИИ Е (Х) 

б) напечатать в виде таблицы все значения Х и соответствующие 
им значения Ё. 

Напишите два варианта этой программы: 

а) используя арифметический оператор 1Е; 

б) используя логический оператор 1Е. 


зы 


Глава Ш 


Переменные с индексами и оператор БОО 


Порция 78 
Переменные с индексами 


Операторы, рассмотренные в предыдущих главах, позволяют за- 
программировать различные вычисления на ЭВМ с отдельными дан- 
ными, обработать же обширное количество вводимой информации, на- 
пример записать программу решения системы из 30-ти линейных 
уравнений, только с их помощью весьма затруднительно. Действи- 
тельно, для решения такой системы уравнений понадобилось бы 
30 х 30 = 900 различных обозначений для ее коэффициентов и 30 
для свободных членов, т. е. 930 илентификаторов, не считая обозна- 
чений для необходимых промежуточных результатов. Однако основ- 
ная трудность в таком случае состояла бы в сложности записи алго- 
ритма решения задачи (программы), поскольку при использовании 
различных обозначений для аналогичных данных весь алгоритм по- 
требовалось бы записать в «развернутом» виде, хотя действия, выпол- 
няемые над всеми коэффициентами при одном и том же неизвестном, 
аналогичны. Существенно при этом, что подобный «развернутый» 
алгоритм, предназначенный для решения системы 30 линейных алгеб- 
раических уравнений, оказывается непригодным для решения той же 
задачи с другим числом неизвестных (например, с 29 неизвестными). 
В этом разделе мы рассмотрим употребление идентификаторов пере- 
менных с индексами, именующих отдельные элементы массивов 
посредством указания их общего идентификатора массива, и индексов, 
определяющих конкретный элемент в массиве, как это и принято в 
подобных случаях в алгебре. 

Существенно при этом заметить, что в качестве индексов могут 
быть использованы не только целые константы, но и некоторые выра- 
жения, надлежащее изменение значений которых позволяет с помощью 
одной и той же переменной с индексами обратиться к любому элемен- 
ту данного массива. | 

Предположим, что с помощью ЭЦВМ нам нужно проконтролиро- 
вать выпуск 10 тыс. видов продукции предприятиями некоторого 
ведомства. Для этого нужно выполнить сравнительно простое вычис- 
ление по определенной формуле, например, 


В==Х+2..А/(7..-В—ЗОВТ(А--Х)) | 
Е 99 


с подстановкой различных значений Х для 10-ти тысяч параметров. 
изделий. Можно, разумеется, присвоить отдельные наименования 
каждой переменной, т. е. параметрам каждой детали, например, 
рі, р2, ..., 010000 и для каждого из этих наименований записать 
операторы для вычислений и вывода результатов на печать. При этом 
мы получим программу, блок-схема которой может быть представлена 
в следующем виде (рис. 23): 


Произвести бычисления по формуле Р, 
используя 6 качестве переменной 21 


/-ая деталь } 74 
Напечатать результат вычислений 


Ц Произбести Вычисления ло Формуле, 
2 | используя переменную с очередным 
Произвести вычисления по формуле Р, значением 0 качестве индекса 
используя д качестве переменной 02. 
2-ая деталь Напечатать результат вычислений || 


Произвести вычисления по формуле Е, | 
используя 8 качестве переменной 710000 1) 10000 
17000-09 


- деталь Нет Да 
Напечатать результат вычислений И 


Напечатать результат бычислений 


Рис. 23 Рис. 24 


Нам не представляется возможным привести полную блок-схему 
программы, в связи с чем мы прибегли в ней к многоточию. Мы ви- 
дим, что крайне неудобно присваивать индивидуальные идентифика- 
торы переменных для данных о каждой детали, так как программа 
обработки значений этих переменных, хотя и обрабатываются они ана- 
логичным образом, будет очень громоздкой. Вместо этого в языке 
ФОРТРАН вводится понятие переменных с индексами (в нашем при- 
мере с одним индексом, принимающим значения от 1 до 10000). 

В связи с необходимостью записи программ на ФОРТРАН (как и 
на других языках программирования) в линейной форме, что вызва- 
но особенностями ввода программ и данных в ЭВМ, в ФОРТРАНе 
принята следующая форма записи индексов, отличная от общеприня- 
той в математике формы, при которой индексы записываются петитом 
(мелким шрифтом) и размещаются несколько ниже основной строки. 
Вместо этого в ФОРТРАНе индексы записываются с помощью обыч- 
ных символов, разделяются между собой запятыми, если их более 
одного, и вся совокупность индексов заключается в скобки и по. 
мещается непосредственно после идентификатора соответствующего 
массива. 
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Блок-схема рассмотренной программы, использующей переменную 
с индексом, может быть представлена на рис. 24. 

Как видим, сначала будет использована переменная Ш (1), затем 
значение индекса І будет увеличено на 1, произойдет сравнение те- 
кущего значения индекса с граничным значением (10 000), и если ин- 
декс меньше или равен 10 000, то управление будет передано блоку 2. 
Эта процедура будет происходить до тех пор, пока не будут произве- 
дены вычисления для [ = 10 000. | 

На языке ФОРТРАН соответствующую программу действий можно 
записать в виде такого фрагмента 


07 | 

2 РЕЗОЕТ = 0(1)9.+А/(7.+В-—50ВТ(А+-р(1))) 
ҮҮРІТЕ (2,3) ВЕЗОТТ 

3 ЕОВМАТ (Е?20.8) | 

ДТ] 

5 1Е(1—10000) 2, 2, 6 

6 $ТОР 


ЕМО 


В этой программе каждая отдельная величина определяется ин- 
дексом І, стоящим в скобках после идентификатора. Индекс всегда 
должен быть целым. Как мы увидим далее, индекс может быть либо 
константой, либо переменной, либо арифметическим выражением не- 
которого допустимого вида. 3 

Полный набор таких величин с индексами (в нашем примере это 
В (1), р (2), О (3), ..., Р (10 000)) в ФОРТРАНе называется масси- 
вом, а каждая из них — элементом массива. Обращение к отдельным. 
элементам массива в языке ФОРТРАН осуществляется посредством 
идентификатора этого массива, за которым в круглых скобках ука- 
зываются его индексы. | 

Такая простая возможность обращения к любому элементу масси- 
ва по идентификатору этого массива и значениям индексов реализу- 
ется в машинах благодаря размещению элементов массивов в ячейки 
памяти с упорядоченным множеством их адресов. 

Задание. Пусть дан массив А, состоящий из 20 элементов. 
Необходимо сформировать массив Х, элемент которого 


Х(Ј)=А (Ј)-РлА (3)? (п=3,1416) 


Напишите фрагмент программы решения задачи, учитывая, что 
после того, как будет определен последний элемент нового массива Х, 
нужно перейти к оператору с номером 17. 
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Порция 79 
Дву- и трехмерные массивы 


_ Массив, рассмотренный в примере в предыдущей порции, называ- 
ется одномерным. Для элементов таких массивов указывается только 
один индекс, записываемый в скобках носле идентификатора массива. 
Обычно в математических выражениях переменные с индексами за- 
писываются в виде: Х,, Х,, Х.. При записи таких переменных на 
ФОРТРАНе индекс необходимо поднять на уровень идентификатора 
переменной и заключить в скобки. Примером одномерного массива 
может служить последовательность координат и-мерного вектора. 

Кроме одномерных массивов в ФОРТРАНе можно использовать 
двумерные и трехмерные массивы. Двумерный массив можно пред- 
ставить в виде матрицы, состоящей из ряда равнодлинных горизон- 
тальных строк элементов или из ряда равнодлинных вертикальных 
столбцов. При этом первый из двух индексов определяет номер стро- 
ки, второй — номер столбца. Например, матрица, состоящая из двух 
строк и трех столбцов, элементы которых обозначены через А;,, 
Е = 1,2; / = 1, 2, 3, представляет собой таблицу вида 


А, 1А; 2А;з 


Ах1Аз Аз 


На ФОРТРАНе эту матрицу естественно представить в виде дву- 
мерного массива, например, с тем же идентификатором А; элементы 
этого массива тогда будут представлены переменными с двумя индек- 
сами: 


А(1,1),А(2,1),А(1,2),А(2,9),А(1,3),А(2,3) 


В памяти машины элементы двумерного массива размещаются в виде 
одномерного массива в следующем порядке: за элементом с индекса- 
ми (1,1) идет элемент с индексами (2,1), затем с индексами (3,1) итак 
далее до элемента с индексами (0,1), где п — максимальное значение 
первого индекса, т. е. сначала в память заносится первый столбец 
массива. Затем аналогичным образом размещается второй, тре- 
тий столбец и т. д. вплоть до элемента (и, тт), где л — максималь- 
ное значение первого, а т — максимальное значение второго индекса. 
Другими словами, в языке ФОРТРАН элементы двухмерных массивов 
располагаются в памяти машины по столбцам. Для обозначения эле- 
мента трехмерного массива используются три индекса, например: 

М (У, К, 4), ЕХАМ (І, Ј, К) или В (2, 3, 4) 

При размещении в памяти трехмерного массива, как и в случае 
двумерного массива, первый индекс изменяется быстрее, а третий 
медленнее остальных. Индексы в дву- и. трехмерных массивах обяза- 
тельно должны отделяться друг от друга запятой. 


102 


Задание. Запишите на ФОРТРАНе все переменные с индек- 
сами, составляющие двумерный массив В, состоящий из трех строк и 
двух столбнов. 


Порция 80 
Приведенный индекс 


Максимальное значение индекса одномерного массива равно числу 
элементов, содержащихся в этом массиве. Для двумерных и трехмер- 
ных массивов число содержащихся в нем элементов равно произве- 
дению максимальных значений всех его индексов. 

В некоторых случаях требуется определить позицию того или ино- 
го элемента массива в упорядоченном множестве его элементов, ко- 
торые считаются, как мы знаем (см. порцию 79), упорядоченными 
так, что первым изменяется в установленных пределах самый левый 
индекс и т. д. Позиция элемента массива в упорядоченном множестве 
его элементов называется приведенным индексом этого элемента. 

Для вычисления значения приведенного индекса можно восполь- 
зоваться табл. 16, в которой приняты обозначения: 

а, 6, с — индексные выражения; 
А, В, С — размеры массива по соответствующим размерностям. 


Таблица 16 
Максимальное Значение приве- Максимальное 
Размерность значение индекса Индекс денного индекса значение приве- 
денного индекса 
| (А) (а) _ а А 
2 (А, В) (а, 5) а А. 6—1) А.В 
3 (А, В, 60 14 А-6 —1) + А.В.С. 


Задание. 1. Чему равно максимальное значение индекса мас“ 
сива А (4, 4)? 2. Что называется приведенным индексом? 


Порция 81 
Правила записи индексов 


До сих пор мы рассматривали элементы массивов, индексы которых 
являются только одной целой константой или целой переменной. 
Однако ФОРТРАН позволяет помещать в скобках в качестве индек- 
сов и некоторые арифметические выражения, например, 


А(Ј-+3) 
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Это выражение А (Ј + З) обозначает переменную А, индекс ко- 
торой равен текущему значению индексного выражения Ј -- 3. Таким 
образом, в процессе выполнения программы одна и та же переменная 
с индексами может обозначать различные элементы массива в зависи- 
мости от текущего значения входящих в индексные выражения пере- 
менных, что весьма существенно для реализации программ, в кото- 
рых элементы массивов обрабатываются аналогичным образом. 

Естественно, индексные выражения строятся в соответствии с пра- 
вилами для построения арифметических выражений, однако некото- 
рого ограниченного вида: индексами могут быть только величины це- 
лого типа (например, запись вида А (Ј — 3) допустима, а А (У—3.00) — 

нет), принимающие положительные значения. 
_ Поэтому в рассмотренном выше примере Ј не может быть меньше 
четырех. В выражениях, задающих значения индексов, могут быть 
использованы операции сложения, вычитания и умножения. Напри- 
мер, мы можем использовать переменную с индексами А (3*Ј). 
В ФОРТРАНЕ разрешены только следующие виды индексных выра- 
жений: 


Виды арифметических Пример идентификатора 
выражений (допустимых в переменной с индексами 
качестве индексных выражений) 

Ј ВЕТА(Ј) 
сри ВЕТА(4) 
пев ВЕТА(Ј--4) 
]— ВЕТА(]—4) 
г] ВЕТА (4) 
Е ВЕТА (4+]--6) 
ге] ВЕТА(4Ј—6) 


Изменение порядка следования компонент в индексных выражениях 
недопустимо. Примеры выражений, недопустимых в качестве индекс- 
ных: 

ВЕТА (4У-Ј); А (112—3); КОГ (К=*2) 

В приведенных примерах г, ё — любые константы целого типа; Ј — 
любая переменная целого типа. 

В ФОРТРАНе не разрешается использование индексированных 
индексов. Это значит, что переменные с индексами вида А (К (1)) 
не могут быть использованы. 

Подведем итог тому, что мы узнали о переменных с индексами. 

1. Переменные с индексами служат для обозначения элементов 
одно-, дву- или трехмерных массивов; индексы < заключаются в скобки 
и разделяются между собой запятыми. 

2. Индексы должны быть целыми константами, переменными цело- 
го типа или же арифметическими выражениями допустимого вида, 
значение которых есть целое число, большее нуля. 
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3. Не разрешается использование индексированных индексов. 

4. Все элементы массива должны быть одного и того же типа, по- 
мещать разнотипные элементы в одном массиве нельзя. 

Задание. Напишите примеры переменных с индексами для 
обозначения элементов трехмерного массива ВЕС, причем первый 
индекс должен быть константой, второй — переменной, третий — 
арифметическим выражением наиболее общего из допустимых видов. 


Порция 82 
Правила записи индексов (продолжение) 


Для закрепления правил, изложенных в предыдущей порции, 
рассмотрим следующий пример. Предположим, что нам необходимо 
вычислить сумму СҮМ попарных произведений Х,, Х,, ..., Хи 
Ү;, Ү,, ..., У» (скалярное произведение векторов). Конечно, можно 
было бы присвоить всем этим 40 величинам различные идентификаторы 
и вычислить необходимую сумму с помощью оператора присвоения, 
однако проще подойти к этой задаче по-другому. Будем рассматри- 
вать первые 20 величин как элементы одномерного массива с иденти- 
фикатором Х, а следующие 20 — как элементы одномерного массива 
с идентификатором Ү. Тогда к любой из необходимых величин можно 
обратиться посредством использования переменной с индексами Х (К) 
или У (К) и программу следует составить так, чтобы К принимало 
последовательно все значения от 1 до 20. 

В математике для обозначения подобной суммы принята запись 

20 


ДХ, У, 
1 


На языке ФОРТРАН эти вычисления можно произвести с помощью 
следующего фрагмента программы: 


СУМ=0.0 
КЕ 
26 СҮМ=СҮМ-+Х(К):Ү(К) 
К=Кк-! 
ІЕ(К —20)26,26,10 
10 (продолжение программы) 


+ 


Сначала мы присваиваем переменной СУМ значение 0, так что для 
вычисления всей суммы необходимо только последовательно добав- 
лять к ее значению очередное произведение; затем переменной К 
присваивается значение 1, так что, когда очередь доходит до опера- 
тора с меткой 26, из массивов Х и У выбираются первые элементы. 
Затем К увеличивается на 1 и производится проверка, все ли элементы 
массивов Х и У использованы в вычислениях. Заметим, ‘если при 
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выполнении оператора ІЕ оказывается, что К = 20, необходимо еще раз 
вернуться к оператору 26 (что обеспечивается второй из меток 26, 
записанных в этом операторе), так как К было увеличено перед про- 
веркой. 

Три последние оператора в этой программе выполнятся точно 
20 раз; в результате получится сумма всех 20-ти попарных произве- 
дений элементов массивов. 

Задание. 1. Некоторые из приведенных конструкций не мо- 
гут быть использованы в качестве переменных с индексами. Опреде- 
лите их и объясните ошибки: 

а) КГОВ (85) 

б) ВОК (42,2) 

в) ГК (4, 3, 2, 1) 

г) ГК (4.3, 2.1) 

д) ЈОВ (0—6) при Е =4 

е) ОВ (Ц, 6) 

2. Напишите фрагмент программы для вычисления суммы 25 вели- 
чин от Х, до Хх, составляющих часть хранящегося в памяти массива 
с идентификатором Х. | 


Порция 83 
Оператор ОІМЕМЅІОМ 


Если в ФОРТРАН-программе используются переменные с индек- 
сами, то в ней должна содержаться и некоторая дополнительная ин- 
формация. Мы должны указать: 

1. Какие идентификаторы поставлены в соответствие массивам 
(то есть, к каким переменным необходимо обращаться с помощью 
индексов). 

9. Каков тип переменных, составляющих каждый из массивов? 

3. Сколько индексов имеет каждая из переменных? 

4. Сколько элементов содержится в каждом из массивов, т. е. 
каково максимальное значение каждого индекса? 

Ответы на. эти вопросы дает специальный оператор языка 
ФОРТРАН — оператор ОІМЕМЅІОМ, операторы спецификации или 
оператор СОММОМ. 

Все идентификаторы переменных с индексами, встречающиеся в 
данной программной единице, должны быть упомянуты в той же про- 
граммной единице в одном из указанных операторов, а сами эти опе- 
раторы должны располагаться в программе до использования ЭТОЙ 
переменной в данной программной единице. 

Один оператор РІМЕМЅІОМ может содержать сведения о несколь- 
ких массивах (единственное ограничение, общее для всех операторов: 
оператор не должен содержать более 1320 символов). 
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В программе можно употреблять любое количество операторов 
РІМЕМЅІОМ (а также СОММОМ или операторов спецификаций). 

Необходимость в указании размеров вызывается следующими об- . 
стоятельствами. Вычислительная машина должна зарезервировать 
определенную часть ячеек памяти для хранения значений перемен- 
ных и констант, встречающихся при выполнении любой задачи. 

Когда машина транслирует ФОРТРАН-программу, т. е. переводит 
ее на машинный язык, она автоматически оставляет в запоминающем 
устройстве поля для хранения значений каждой новой константы и 
простой переменной (как мы отмечали, размеры этих полей стандарт- 
ны для всех величин данного типа). Для выделения памяти под мас- 
сивы знания типа входящих в них элементов недостаточно. 

Предположим, что у нас в некоторой программной единице имеется 
вешественный массив, обозначенный идентификатором АТРНА, 

Каким образом сообщить машине, сколько ячеек памяти нужно 
зарезервировать? 

Оператор Р1МЕМ$З1ОМ как раз и сообщает машине, какой объем 
памяти необходимо зарезервировать, чтобы хранить данный массив. 
(Заметим, что ту же информацию можно задавать и в операторах 
СОММОМ и в операторах спецификации типа). 

Формат оператора РІМЕМЅІОМ следующий: 


РІМЕМЅІОМ (список описателей) 


Элементами (списка описателей) являются описатели массивов, пред- 
ставляющие собой идентификаторы массивов, за которыми следуют 
в скобках размерности. Последние представляют собой константы 
без знака или идентификаторы переменных целого типа и определя- 
ют соответственно максимальное значение каждого индекса, а их ко- 
личество в скобках определяет размерность массива. Заметим, что раз- 
мерности массивов, задаваемые в главной программе, не могут ука- 
зываться идентификаторами, а должны быть заданы в любом случае 
только целыми положительными константами. Размерности массивов 
в других программных единицах (процедурах) могут задаваться кон- 
стантами или идентификаторами переменных целого типа. 
Задание. Какую информацию содержит оператор ОІМЕМЗІОМ» 


Порция 84 
Оператор РІМЕМЅІОМ (продолжение) 


` Допустим, что массив АЕРНА является двумерным и состоит из 
шести столбцов и пяти строчек. Тогда соответствующий оператор 
О МЕМЗ!ОМ, который должен появиться в записи программы до нояв- 
ления какой-либо другой ссылки на идентификатор АЕРРНА (если 


} 
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размеры массива определяются этим оператором), должен быть запи- 
сан так: 


РІМЕМЅІОМ№ АЕРНА (5,6) 


При распределении памяти для массива АРНА будет предусмот- 
рено 30 ячеек (5 Хх 6). 
Если в программе содержится оператор 


О1МЕМЗОМ УОГТ5(2,30), АМР$(5,30),МОРЕЗ(7,30) 


то при распределении памяти будут отведены 60 ячеек для массива 
УОГТ$ (2 х 30), 150 ячеек для массива АМРЗ (5 х 30), 210 ячеек 
для массива МОРЕ (7 х 30), т. е. всего 


60 + 150 – 210 = 420 ячеек. 


При составлении программы программист должен предусматри- 
вать обращение к таким элементам массивов, индексы которых не пре- 
вышают максимальных, указанных в операторе РІМЕМЅІОМ (если 
размеры определяются этим оператором), и не становятся равными 
нулю или отрицательными. Оператор РІМЕМЅІОМ принадлежит к 
числу операторов, описывающих исходные данные, т.е. к невыполняе- 
мым операторам; он только содержит информацию, используемую 
транслятором для распределения памяти под массивы, но сам по себе 
не определяет никаких действий. 

Напоминаем еще раз, что операторам, включающим обращение 
к массивам или их отдельным элементам (т. е. содержащим в своей 
записи идентификаторы массивов или переменные с индексами), в за- 
писи данной программной единицы должны предшествовать описания 
этих массивов, задаваемые оператором РІМЕМЅІОМ, СОММОМ или 
операторами спецификаций. 

Оператор РІМЕМЅІОМ“ может использоваться с операторами КЕАР 
и РОВМАТ при описании и вводе исходных данных для ФОРТРАН- 
программ. 

Давайте, например, рассмотрим оператор ВЕАР, который ис- 
пользуется для ввода информации в некоторой задаче. Операторы 
ОІМЕМЅІОМ, КЕАР и РОВКМАТ могут иметь вид: 


”ІМЕМЅІОМ В(9),С(9,9), Х(9) 
КЕАР (1,6)С(1,1),С(1,2),С(2,1),С(2,2),В(1),В(2), Х(1),Х(2) 
6 РОВМАТ (8Е10.0) 


Заметим, что и здесь, как и в случае простых переменных, отсутствие 
спецификации типа переменных массивов В, С, Х означает, что их 
тип определяется неявно, т. е. в нашем случае все эти массивы содер- 
жат переменные вещественного типа. Когда в операторе ВЕАР пере- 
числяются все элементы массива, их можно вводить в произвольной 
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последовательности. Например, программисту может показаться бо- 
лее удобным следующий порядок ввода: 


Естественно, что в этом случае на перфокарте числа должны быть 
отперфорированы в том же порядке, в каком они перечислены в опера- 
торе КЕАО. 

Задание. 1. В приведенных ниже записях элементов массивов 
значение каждого из индексов является максимальным. 


^(6,17),СА1М(3,4),2(3),РАТЕ(6,2,2) 


Напишите соответствующий оператор О МЕМЗОМ для описания 
массивов с указанными идентификаторами. 

2. Укажите ошибки в двух приведенных ниже записях операторов 
РІМЕМЅІОМ: 

а) РІМЕМЅІОМ А(2, 2)Е(8) (16) 

6) РЕМЕМЅІОМ С(30) 


Порция 85 
Оператор РІМЕМЅІОМ (продолжение) 


Иногда бывает нужно ввести или вывести все элементы массива, 
не перечисляя их по одному. В таких случаях в списке элементов 
оператора ввода или вывода следует указать только идентификатор 
массива, не указывая индексов; при этом будет введен или выведен 
весь массив. 

В следующем примере: 


РІМЕМІОМ В(2),С(2,2),Х(2). 
ВЕАР(1,6)В,С,Х 


будут целиком введены массивы В, Си Х. 

При этом необходимо соблюдать следующие правила, строго опре- 
деляющие последовательность ввода элементов массива: 

Правило 1. Одномерный массив вводится, начиная с элемента, 
имеющего индекс 1, и кончая элементом с максимальным индексом, 
указанным в его описании в операторе РІМЕМЅІОМ. 

Правило 2. Для двумерного массива ввод осуществляется так, 
что при каждом фиксированном значении второго индекса первый про- 
бегает все значения от 1 до максимального, т. е. первый индекс изме- 


_ няется быстрее. Поэтому операторы 


РІМЕМЅІОМ (2,3) 
КЕАР(?,6)К 
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определяют следующий порядок присвоения значений элементам мас- 
сива В: 

В(1,1),6(2,1),6(1,2),6(2,2),6(1,3),К(2,3) 
е так и следует располагать исходные данные на перфокарте. 
Таким образом, элементы двухмерного массива перечисляются по 
столбцам. | 

Правило 3. Для случая трехмерного массива также действует 
правило, согласно которому первый индекс изменяется быстрее всех, 
а последний — медленнее всех. 

Задание, 1. В каждую из программных единиц, которые нуж- 
но составить при выполнении этих заданий, необходимо включить 
оператор ріМЕМЅІӦМ, определяющий количество элементов в задан- 
ных массивах! 

а) Координаты некоторой точки в пространстве заданы тремя 
элементами одномерного массива Х. (Обратите внимание на различ- 
ный характер понятия количества измерений: здесь элементы одномер- 
ного массива используются для задания координат точки в трехмер- 
ои пространстве), Напишите оператор присвоения, с помощью ко- 
орого можно было бы вычислить расстояние точки от начала коор- 
динат. (Это расстояние равно корню квадратному из суммы квадратов 
Ќӧординат Точки). 

б) Если координаты вектора в пространстве равны Х,, Х, и Х,, 
то его направляющие косинусы можно вычислить по следующим фор- 

Мулам: 


ру +8 +55 
СВ = = 

ГЕ + х4 х5 
СС = ; 

Иа тр. 


Напишите фрагмент программы для вычисления направляющих 
косинусов. 


Порция 86 
Оператор ”ІМЕМЅІОМ (продолжение) 


Задание. 1. Сформулируйте задачу, которая может быть ре- 
шена с помощью приведенного ниже фрагмента программы: 


Р1МЕМЗЮМ А(100) 
5=0.0 
1=0 
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10 1=1+1 
ІР(А(Т.СТ.0.)СО ТО 15 
СО ТО 20 

15 5=9+4-А(1) 

20 ТЕ(Т.ГЕ.М)СО ТО 10 
(продолжение программы) 


2. Упростите по возможности приведенный выше фрагмент, не ис- 
кажая смысла поставленной задачи. 

3. Напишите ет программы для вычисления суммы элемен- 
тов матрицы АЕ Уин |=’ м), лежащих выше 
главной диагонали, включая элементы диагонали. Искомая сумма 
находится по следующей формуле: 


Я-А, 


1=1 |= 


Составьте два а варианта указанного фрагмента программы: 
а) с использованием логического оператора 16; 
б) ё использованием арифметического оператора ІЕ. 


Порция 87 
Оператор РО 


Оператор РО является одним из наиболее мощных средств языка 
ФОРТРАН. Этот оператор позволяет в удобной форме описывать цик- 
лические повторения некоторого участка программы, называемого об- 
ластью цикла; он особенно удобен в случае, когда при каждом новом 
прохождении этого участка значение некоторой целой переменной 
изменяется, возрастая каждый раз на некоторое положительное чис- 
ло, т. е. принимает значения членов арифметической прогрессии. 
Переменные с индексами и оператор РО облегчают программирование 
вычислений, связанных с массивами, элементы которых обрабатывают 
ся одной и той же последовательностью операций. 

Для иллюстрации применения оператора РО рассмотрим задачу 
о нахождении суммы квадратов двадцати чисел. Для вычисления этой 
суммы можно воспользоваться такой программой: 


”ІМЕМЅІОМ№ Х(20) 


СУММА =0.0 
Ј=1 

2 СУММА =СУММА --Х(Ј) 2 
Ј== 4-1 


15(Ј—20)2,2,1 | 
1 (продолжение программы) 


11 


Применяя оператор ОО, эту сумму можно вычислить с помощью 
следующей более короткой программы: 


ОТМЕМЗЮМ Х(20) 

СУММА =0.0 

РО 189 =1,20 
18 СУММА =СУММА--Х(Л 2 
28 (продолжение программы) 


В этом фрагменте оператор О МЕМЗОМ устанавливает, что пере- 
менная Х имеет один индекс, максимальное значение которого рав- 
но 20. Сначала мы присваиваем переменной СУММА исходное значе- 
ние, равное нулю, а затем выполняем оператор РО, в котором указана 
метка оператора 18. Последнее означает, что операторы программы 
после ОО до оператора с меткой 18 включительно будут выполняться 
многократно. В нашем случае после РО стоит всего один оператор — 
оператор с меткой 18, который и будет повторно выполняться. Снача- 
ла этот оператор выполняется при Ј = 1, так что на этот раз к пере- 


о 2 
менной СУММА прибавляется Х!. Затем значение Ј увеличивается 
на 1 и оператор с меткой 18 выполняется теперь уже при Ј = 2, так что 


к предыдущему значению переменной СУММА прибавляется Хз. 
Этот процесс будет продолжаться до тех пор, пока Ј не достигнет зна- 
чения 20, указанного в операторе РО, после чего значение переменной 
СУММА окажется равным сумме квадратов всех двадцати чисел. По- 
сле этого управление передается оператору, следующему за операто- 
ром с меткой 18, т. е. оператору с меткой 28. 

Имеется два формата оператора РО: 


ЭО Д 20 (использован в нашем примере); 
ВВ КА 


здесь п — метка последнего, называемого конечным, оператора облас- 
ти цикла — циклически выполняемого участка программы (в нашем 
примере и = 18); конечный оператор в записи программы должен по- 
мещаться после соответствующего оператора ОО; 

і — простая переменная целого типа, называемая «управляющей пе- 
ременной», или параметром цикла; 

74, ть, т. — простые переменные целого типа, принимающие толь- 
ко положительные значения, или целые положительные константы. 

ту — значение, которое принимает управляющая переменная в на- 
чале циклического процесса (т, = 1 в нашем примере), т. е. перед 
первым выполнением цикла; это значение называется начальным зна- 
чением параметра цикла; | 

т, — «конечное значение» управляющей переменной, называемое 
конечным значением параметра цикла; т. всегда должно быть не боль- 
ше т». Если т, будет меньше та, то это считается ошибкой. 
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Область оператора ОО может содержать в себе операторы перехода, 
передающие управление как на операторы, содержащиеся в ней, так и 
на внешние, однако находящиеся в той же программной единице. 
Последнее может привести к тому, что число повторений выполнения 
операторов, составляющих область цикла, может оказаться меньшим 
максимального, равного’ 


ада 


ТЗ 


где [а] — целая часть числа а. 

Циклический процесс прекращается при превышении значения 
управляющей переменной ее конечного значения. 

Во второй модификации оператора рО смысл п, і, ту и т, тот же, 
что и в первой модификации, а т; — это приращение параметра цик- 
ла, на которое увеличивается значение і каждый раз при очередном 
повторении цикла. Приращение может быть задано простой перемен- 
ной целого типа или константой целого типа. 

Так же как т; и т,, значение приращения т. не может быть отри- 
цательным или равным нулю. Если значение т; не задано, то подра- 
зумевается, что оно равно 1 (как в рассмотренном примере). Действие 
оператора РО состоит в следующем: при і = т; выполняются опера- 
торы, начиная с оператора, непосредственно следующего за операто- 
ром РО, до оператора с меткой п, указанной в операторе РО, вклю- 
чительно. 

Затем і увеличивается на величину тз и последовательность вычис- 
лений повторяется с оператора, непосредственно следующего в запи- 
си программы за оператором РО. Повторные выполнения операторов 
цикла продолжаются до тех пор, пока значение і не превысит значе- 
ние {і = т, (если выход из области не будет совершен посредством ка- 
кого-либо оператора перехода). После этого управление передается 
первому выполняемому оператору, следующему в записи программы 
за оператором с меткой п. 

Задание. Два одномерных массива А и В содержат каждый 
по 50 элементов. Напишите фрагмент программы для вычисления 
суммы 


50 


СУММА — УА.. Ву; 


[= 


используя оператор ро и без него. 
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Порция 88 
Оператор ВО (продолжение) 


Вложенные циклы 


Внутри области цикла оператора рО можно размещать другие 
операторы цикла. Такое размещение оператора РО внутри другого 
обычно называется организацией вложенных операторов ОО. 

Чтобы лучше понять действие вложенных операторов РО, давайте 
рассмотрим задачу транспонирования * матрицы. Предположим, что 
нам дана матрица, имеющая 10 строк и 12 столбцов. Требуется ее 

транспонировать. Если обозначить первоначаль- 
ный матричный массив через АБК, а новый че- 

Г рез ВКК, то для получения, например, элемен- 

‚ та матрицы ВЕК, стоящего в третьей строке и 
четвертом столбце, следует записать оператор: 


ВАК) ЕАВАИТК) ВКК(3,4) =АКК(4,3) 
т. ______ Последняя запись означает, что элемент, стоящий 
на пересечении 3-й строки и 4-го столбца новой 
матрицы, равен элементу исходной матрицы АКК, 
располагающемуся на пересечении 4-й строки и 
< 3-го столбца. Поэтому в общем случае задача 
Да сводится к выполнению оператора присвоения 
Г Убеличить 1 на единиц ВЕР (К,Ј) = АВВ (Ј,КҚ) для значений Ј и К, 
изменяющихся от 1 до 10 и от 1 до 12 соответ-. 
ственно. Блок-схема алгоритма решения этой за- 

дачи представлена на рис. 25. 


Реп 1 больше 10? 


Да Давайте рассмотрим внимательно эту блок- 
схему. Сначала мы полагаем Ј = 1, затем К = 1, 
а потом переходим непосредственно к выполне- 

Рис. 25 нию оператора: 


ВЕЕ(К,Ј=АБКК(Ј,К) 

Так как во время первого цикла Ј и К равны единице, то мы фак- 
тически присваиваем значение АВК (1,1) переменной ВЕК (1,1). 
Далее Қ увеличивается на единицу (теперь значение К равно 2). 
Так как на этом этапе К < 12, возвращаемся к началу внутреннего 
цикла для продолжения вычислений, но на этот раз выполняется опе- 


ратор: 
ВКК(2,1) =АКК(1,2) 


Этот процесс продолжается до тех пор, пока значение К не превысит 
число 19; тогда осуществляется возврат к началу внешнего цикла по- 


1 Под транспонированием понимается процесс образования новой матрицы, 
строки которой являются столбцами исходной матрицы. 
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сле увеличения Ј наединицу. Поэтому новое значение Ј будет равно 2. 
В то же время К вновь присваивается первоначальное значение, рав- 
ное единице, и таким образом выполняется оператор: 


ВКК(1,2)=АКВК(2,1) 


затем производятся действия по внутреннему циклу, которые повто- 
ряются до тех пор, пока К не достигнет значения 12. Это означает, 
что фактически оператор присвоения ВЕР (К,Ј) = АВВ (Ј,К) вы- 
полняется 120 раз (один раз для каж- 
дого элемента матрицы, общее количе- 
ство которых равняется числу строк, 
умноженному на число столбцов). 


мо 


БҸ 
5 
5 
5 
у 
Ниже представлен эквивалент при- = 
веденной блок-схемы на языке 55 
ФОРТРАН, использующий оператор РО: Эуе 
Сах 
РО 1 Ј-=1,10 5 
РО 1 К=1,12 З 


1 ВКК(К,Ј) =АКК(Ј,К) 


Последняя запись гораздо компак- 
тнее программы, использующей два опе- Рис. 26 
ратора 1Е. | 

Необходимо помнить, что самый внутренний цикл организуется 
последним, а выполнение его завершается всегда первым. 

Идея такой организации распространяется также и на случай 
трех, четырех или большего количества циклов, которые могут быть 
вложены один в другой. 

При организации вложенных операторов ОО необходимо соблю- 
дать следующее правило: вложенные циклы должны располагаться 
таким образом, чтобы отдельные циклы «перекрывались» (но не пере- 
секались). На рис. 26 схематически представлены примеры “допусти- 
мой и недопустимой организации вложенных циклов. 

Недопустимую запись вложённых циклов иллюстрирует следую- 
щий фрагмент ФОРТРАН-программы: 


рО 59 
А(0) = С» К — В5/В(1, 2) 
о 30 Кб 
|| 29 ЗТЮЕМ = $ТРІМ + 1.0 
`30 КЕЗ (К) = 0.0 


В этом примере имеет место пересечение двух циклов. Такая совокуп- 
ность операторов РО недопустима, что обычно отмечается трансля- 
торами. 

Задание. Двумерный массив А содержит 15 строчек и 15 столб- 
цов. Одномерный массив Х содержит 15 элементов. Вычислите 15 


Правильно Неправильно 
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элементов одномерного массива В по формуле (умножение матрицы 
на вектор): 
15 
В, = Ў) А;· Х; 159, А 
= 


Порция 89 
Оператор РО (продолжение) 


Правила использования оператора ВО 


Оператор ПО позволяет строить весьма компактные програм- 
мы, но при его использовании необходимо соблюдать определенные 
правила: 

Правило 1. Конечный оператор цикла в записи программы должен 
следовать после оператора РО и находиться с ним в одной и той же 
программной единице. Конечный оператор не может быть никаким 
оператором перехода СО ТО всех типов, оператором КЕТОКМ, ТОР, 
РАОЅЕ, РО, арифметическим оператором ГЕ, а также логическим опе- 
ратором ІЕ, содержащим перечисленные выше операторы управления. 

Правило 2. Начальное значение параметра цикла не должно быть 
большим конечного его значения. После выхода из области оператора 
ОО в результате выполнения оператора СО ТО или арифметического 
оператора Е параметр цикла остается определенным и его значение 
равно последнему присвоенному ему значению. 

Правило 3. Никакой оператор в области действия РО не дол- 
жен каким-либо образом изменять значения переменных, указанных 
в этом операторе и определяющих значения управляющей переменной; 
это значит, внутри области действия оператора РО недопустимо при- 
своение значений переменным і, т, т.›, тз посредством операторов 
присвоения или ввода. Например, недопустима следующая организа- 
ция цикла РО: 


ро? К=1,М,2 

А (К) = 1.75 КЕ(К)) 

Къ К+1 
мм? 


так как К и М (переменные, указанные в операторе РО) не могут из- 
моняться в его области. Никаких других ограничений на указанные 
переменные не накладывается. 

Правило 4. Передача управления во внутрь области оператора РО 
из какого-либо оператора, лежащего вне этой области, запрещена. 

Это правило запрещает также передачу управления из области 
действия внешнего рО в области действия внутренних ОО, но оно, 
однако, не запрещает передачу управления из области действия внут- 
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реннего РО в область действия внешнего РО. При этом управление 
передается от оператора, лежащего внутри области действия внешне- 
го РО, доугому оператору, также лежащему внутри нее. Схематиче- 
ски это правило проиллюстрировано на рис. 27. Квадратными скоб- 
ками на рисунке обозначены области 
действия операторов РО, стрелки изоб- 7 
ражают передачи управления. 

Единственным исключением из пра- 
вила, запрещающего передачу управле- Е 
ния извне внутрь области действия опе- у 
ратора РО, является следующее: в ходе 
выполнения самого внутреннего из опе- 
раторов ЮО разрешена передача управ- 
ления в какое-либо место программы 
для вычислений, не изменяющих значе- 
ний ни одного из имеющих силу в этой 
области параметров оператора ОО, с 
последующим возвратом в область дей- 
ствия того же оператора РО. Ограниче- 
ние, налагаемое на точки выхода и воз, опостимо Недопустимо 
врата, можно сформулировать следую- 
щим образом: Рис. 27 

между точками выхода и возврата не может находиться оператор, 
являющийся конечным в области действия оператора РО. 

Задание. Дана матрица, имеющая десять строк и десять столб- 
цов. Напишите совокупность операторов, обеспечивающих транспо- 
нирование этой матрицы, после чего предусмотрите возведение в квад- 
рат каждого элемента транспонированной матрицы. Для обозначения 
исходной матрицы используйте идентификатор МІ, для транспониро- 
ванной — МКЕЗ; тот же идентификатор МКЕ$ используйте для эле- 
ментов матрицы, равных квадрату элементов транспонированной. 


в 


Порция 90 
Оператор ВО (продолжение) 


Область действия оператора РО 


С каждым оператором РО связывается некоторая определенная 
область программы, которая представляет собой последовательность 
следующих за ним выполняемых операторов, конечным оператором 
которой является оператор с меткой, указанной в этом операторе по- 
сле служебного слова РО. Если область некоторого оператора РО вклю- 
чает другой оператор РО, то область действия последнего должна быть 
полностью вложенной в область действия первого из них или иметь 
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с ним общий конечный оператор (т. е. в случае вложенных циклов до- 
пускается совпадение нижних границ их областей). 

Допустимая глубина вложенности операторов цикла ничем не ог- 
раничена (она может ограничиваться в отдельных реализациях языка), 
однако для любых операторов цикла, содержащихся внутри областей 
других операторов цикла, встретившийся конечный оператор любого 
из них должен следовать за конечными операторами всех внутренних 
по отношению к нему операторов цикла или совпадать с ними. 

После выполнения конечного оператора некоторого цикла получает 
соответствующее приращение параметр самого внутреннего оператора 
РО, ссылающегося на этот конечный оператор. 

Если при этом значение изменившегося параметра не превышает 
его конечного значения, то повторяется выполнение операторов, со- 
ставляющих область соответствующего оператора ПО (т. е. после опе- 
ратора ПО, параметр которого получил приращение). После того 
как параметр цикла получает значение, превышающее его граничное 
значение, соответствующий оператор цикла считается завершенным. 
В этом случае значение его параметра становится неопределенным. 

Если на данный конечный оператор ссылаются несколько: опера- 
торов РО, то после его выполнения получает прирашение параметр 
ближайшего внешнего к завершенному оператору; действия повторя- 
ются до тех пор, пока все операторы ОО, ссылающиеся на данный ко- 
нечный оператор, не будут завершены; после их завершения выпол- 
няется оператор, следующий за этим конечным оператором. 

Область действия оператора РО может быть расширена в том слу- 
чае, если выполняются оба следующие условия: 

1. Внутри области самого внутреннего оператора рО (назовем 
ее область-1) имеются операторы СО ТО или арифметические опера- 
торы 1, которые могут передать управление во внешнюю область 
РО (назовем ее область-2) по отношению к области самого внешнего 
из объемлющих область-1 операторов ОО. 

2. В области-2 существуют операторы СО ТО или арифметические 
операторы Е, которые передают управление в область-1. 

При выполнении этих условий расширенной областью оператора 
РО считается последовательность всех операторов, которые могут быть 
выполнены между всеми парами операторов управления, указанными 
в правилах 1 и 2. 

Существенно, что никакой оператор СО ТО или арифметический 
оператор ПЕ не может передавать управление в область действия опе- 
ратора РО в том случае, когда он не выполняется как часть расширен- 
ной области. 

Пример использования расширенной области оператора ро при- 
веден в порции 93 (пример 1). 

В процессе выполнения области цикла допускается обране 
к процедурам (о которых будет речь идти далее). При этом считается, 
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что все действия, связанные с выполнением любой процедуры, вклю- 
чаются (временно) в данную область цикла. 

Если некоторый оператор является конечным оператором несколь- 
ких областей операторов ОО (более чем одного), то метка этого опе- 
ратора может быть использована в операторах СО ТО или арифме- 
тических операторах ІЕ только в том случае, когда эти операторы 
встречаются внутри самого внутреннего оператора РО, ссылающегося 
на данный конечный оператор. | 

Задание. 1. Какова допустимая глубина вложенности опера- 
торов цикла? 

2. Могут ли несколько торов РО ссылаться на один конеч- 
ный оператор? 

3. При каких условиях область действия оператора РО может ‘быть 
расширена? 


Порция 91 
Оператор РО (продолжение) 


Завершение цикла ВО 


‘Для завершения цикла РО руководствуются правилом, заключаю- 
щимся в том, что конечный оператор области любого оператора цикла 
должен быть оператором ФОРТРАНа, не вызывающим передачи уп- 
равления. Недопустима, например, запись вида: 


РО 7 Г, = 1:30 
А(Г)=В(Г.--9)+С(Г.) 
7 80 ТО 8 


а машина выполнит цикл при |. = 1, получив значение 

А (1), а затем перейдет к выполнению оператора с меткой 7, который 
указывает на передачу управления оператору с меткой 8, находяще- 
муся где-либо в программе (в данной программной единице). Но ведь 
согласно определению оператора рО при выполнении его конечного 
оператора параметр цикла І должен получить приращение и цикл 
должен повториться. Поэтому транслятор должен указать на ошибку. 
Но иногда все-таки бывает необходимо поместить некоторый оператор 
управления СО ТО в конце области цикла рО. Например, нужно по- 
местить оператор СО ТО по вычислению в конце цикла с тем, чтобы 
можно было выйти из этого цикла несколько ранее, если выполнятся 
определенные условия. При этом вычисляемый оператор СО ТО дол- 
жен быть последним выполняемым оператором в цикле РО. Правила 
написания ФОРТРАН-программы требуют при этом применения спе- 
циального. оператора СОМТТМОЕ, который будет рассмотрен в сле- 
дующей порции. 

Задание. В чем заключается правило завершения операто- 
ра ОО? 
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Порция 92 
Оператор СОМТТМОЕ 


Оператору СОМТІМОЕ в рабочей программе не соответствуют 
никакие действия. Он используется в качестве конечного в области 
оператора РО или же в любой ситуации, когда требуется пометить 
оператор, не выполняющий фактически никаких действий. Оператор 
СОМТІМОЕ имеет следующий формат: 


п СОМТІЧОЕ 


Здесь и — метка, присвоенная оператору СОМТІМОЕ. 

Обращаем Ваше внимание на то, что последним оператором области 
РО может быть логический оператор ІЕ, который в этом случае не 
должен содержать операторов управления. Например, допускается 
следующий цикл ПО: 


ро 5 1=1,30 
5 ЈЕ (А(І).№Е.О.)А(1)=0.0 


Этот цикл эквивалентен следующему 


ро 5 11,30 
ТЕ (А(1))1,5,1 

1 А(1)=0.0 

5 СОМТМОЕ 


Таким образом, в случае истинности логического выражения вы- 
полняется оператор, указанный в логическом операторе ТЕ. Если ло- 
‘гическое выражение ложно, то этот оператор ІЕ выполняется как опе- 
ратор СОМТІМОЕ. И в том и в другом о цикл возобновляется 
под управлением І. 

Рассмотрим теперь следующие примеры: 

Пример 1. 

Необходимо составить фрагмент программы, определяющий мини- 
мальный элемент АМПМ массива А (содержащего М элементов) и его 
порядковый номер К в массиве. Если минимальных элементов в мас- 
сиве несколько, требуется определить из них первый по порядку. -_ 

Для решения поставленной задачи положим вначале 


АМІМ=А(1), К=1 


Далее, просматривая все остальные элементы от второго до М-го, бу- 
дем сравнивать их с АМІМ. Если очередной элемент А (1) окажется 
меньше АМІМ, то присвоим его значение переменной АМІМ, а зна- 
чение его индекса І — переменной К; в результате получим искомые 


значения: 
АМГМ = А(1) 
К= 1 
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_р0201=2,М 
ІЕ(АМІМ — А(1))20,20,10 
10 АМІМ = А(]) 
ЗЕ 


К= 
20 СОМТИМОЕ 

Пример 2. 

Пусть дан массив Г, целых положительных чисел. Требуется найти 
сумму 15 всех четных чисел, входящих в этот массив, и их количество 
Т.К. Массив Г. содержит МВ чисел. 

Для определения того, является ли данный элемент [. (1) четным 
или нет, включим в программу следующий оператор присвоения: 


11=1(1)—1(0/22-- 1 
Учитывая особенность выполнения операции деления для целых 
(см. порцию 22), легко заметить, что 
11=2, если 141) — нечетное число, 
11=1, если 1(1) — четное число. 


Фрагмент программы для решения поставленной задачи может 
быть представлен в виде: 


15 = 0 
ІК = 0 
рО 5 1=1,М№В 


11=1(1)—1(1)/2:2--1` 

СО ТО (10,5),[1 
Ув 15 

ГК =ГК-1 
э СОМТІЧОЕ 
7 (продолжение программы) 


Переставив местами в списке меток оператора СО ТО метки 5 и 10, 
получим фрагмент программы для вычисления суммы [5$ нечетных 
членов массива и их числа Г.К. 

Заменив в списке меток того же оператора СО ТО первую метку 5 
на метку 7, получим программу для вычисления суммы 15 первых 
четных членов массива Г, до первого нечетного члена и их числа Г.К. 

Заметим, что в последнем случае оператор СОМТТМОЕ может быть 
опущен при условии, что его метка 5 будет перенесена к предыдущему 
оператору присвоения. 

Задание. 1. Сформулируйте задачу, решаемую данным фраг- 
ментом программы: | 


51=0.0 
ВО51=1,М 
ПО 5] =тМ 


5 $1=$1--А(1,1) 
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2. Ниже приведены фрагменты программ. Определите, какие из 
них эквивалентны фрагменту, приведенному в задании 1, какие со- 
держат ошибки и в чем эти ошибки заключаются. 


зы. б) 9020 
роо 122 17Ҹ рО 5 К=1,М 
роб = М РО 6 }=Г,М 
5 $1 =51-- А(К,7) 6 $1 =$1-- А(К, Л 
6 СОМТМОЕ 5 СОМТІМОЕ 
в) 51=0.0 г) 51=9.9 
рО 5 1=1,М рО 5 К=1,№ 
РО 6 Ј=1М3 ро 6 К=1М 
6 51=91+4-А(І,Ј) 51=8$1+А(К, 
5 СОМТІМОЕ 5 СОМТІМОЈЕ 
6 СОМТІМОЕ 
Порция 93 


Примеры использования оператора ОО 


Пример 1. 

При рассмотрении этого фрагмента предполагается, что заданы 
два массива А (10), В (30). Выполнение этого фрагмента состоит в 
вычислении и выводе (по мере вычисления) в указанном порядке сле- 
дующих величин: 


10 
і==1 


2) $, = $1 

3) 8, = 8, + 1,5 
4) 5: = 9:4 2 
5). $5 = 5: + 54 


10 | 
6) $5 = № 4, Внь Я, дан: 19 
(= 


9 
Т) 85 = (А; ЗА Вз) + Вџ + 2 А; · Вр | (Аю— Ву) · Взо 


° Вычисление и вывод на печать значений $5, 57, ..., 924 по формуле 
6) осуществляется в цикле. Далее осуществляется выход в расширен- 
ную область, где производится вычисление необходимого скалярного 
произведения (суммы попарных произведений). При этом в начале ра- 
боты данного фрагмента производится вычисление по формуле 1) 
с помощью тех же операторов, однако не рассматриваемых в качестве 
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операторов, принадлежащих расширенной области оператора цикла. 
Пример имеет иллюстративный характер и показывает, что понятие 
расширенной области оператора цикла является динамическим: об- 
ласть оператора цикла расширяется на время выполнения этого опера- 
тора при соблюдении указанных ранее условий 1 и 2 (см. порцию 90). 


РІМЕМЅІОМ А(10),В(30),С(4) 
АЗЗТОМ 5 ТО М 
[.=0 
8 5=0.0 
ВО 1=110 
12=1-- Г. 
5=5--А(1)*В(12) 
ҰҮБВІТЕ (3,2)5 
ГОВ МАТ (Е10.4) 
СО ТО М, (5,6,7) 
АЅ5І8СМ 6 ТО М 
С(1)=$*5 
С(2)=С(1)--1.5 
С(3) =С(2)--1.7 
С(4) =С(2) +-С(3)=2 
МБВІТЕ (3,2)С 
ро 6 к= 1,19 
2=1+-1 
СО ТО 8 
6 СОМТІЧОЕ 
А(1)=А(1)--В(30) 
А(10)=А(10)—В(30) 
Е==14-1 
АЗЗОМ 7 ТО М 
ОО ТО 8 
7 (продолжение программы). 


Обращаем Ваше внимание на то, что нами введен массив С (4), 
что позволило, накопив в нем значения 652, 5, 94, ©5, осуществить вы- 
дачу этих значений одним оператором вывода. Кроме того, полезно 
заметить, что переменная [С дублирует значения параметра второго 
оператора цикла К. Однако эта переменная в дальнейшем, после за- 
вершения второго оператора цикла, нами используется для вычисле- 
ния последнего из вычисляемых значений $5.55. Тот же результат будет 
достигнут, если мы откажемся от этой переменной І, соответственно 
заменив ее переменной К и выбросив из области второго оператора 
цикла оператор [=Г--1. Однако в таком случае перед последним опе- 
ратором  АЗЗ1@М нам понадобится оператор 1.=1.4-1 заменить на 
оператор 1.20, обеспечивающий возможность использования первого 


лю = 
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ааа ааа И НЕ 


оператора цикла для получения последнего из вычисляемых значе- 
ний. В связи с изложенным приводим второй вариант фрагмента про- 
граммы, решающего поставленную задачу: 


Р1МЕМЗЮМ А(10),В(30),С(4) 


АЅ5ІСМ 5 ТО М 


П=0 

8 5=0.0 
ОО 11=1,10 
12= и -Н1 


м 


5=595--А(1)*В(12) 
УРІТЕ (3,2)5 
РОВ МАТ (Е10.4) 
СО ТО М, (5,6,7) 
АЅ5ІСМ 6 ТОМ 
С() =9+9 
С(2)=С(1)=-1.5 
С(3)=С(2)-+1.7 
С(4) =С(2) -С(3) +2 
МЕЕ (92) 


СЕК 


РОЗ — 19 
СО 1038 
6 СОМТПМОЕ 


А(1)=А(1)--В(30) 
на А(10)— В(30) 
Т 


АСС 7 ТОМ 
6.0102 

7 (продолжение программы) 

Пример 2. 

Для того чтобы у Вас не сложилось впечатление, что оператор рО 
используется только для обработки данных, входящих в массивы 
(т. е. переменных с индексами), рассмотрим пример решения алгеб- 
раических, или трансцендентных уравнений 


Г(х) = 0 
методом итераций. . 
Метод итераций заключается в следующем. Исходное уравнение 
представляется в равносильной форме вида: 


х= Фф(5). 


Затем выбирается некоторое значение х = х, в качестве нулевого при- 
ближения; последующие приближения вычисляются по формулам: 


Р Ху = Ф (х0), 5 = Фф (х1), ... 
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или в общем виде: 
Хп = Ф (х,) И 


Процесс продолжается до тех пор, пока не будет достигнута задан- 
ная точность: | хъы — х, < ЁРЅ (достаточным условием сходи- 
мости процесса является | ф' (х) | < 1 < 1 для х в окрестности точки 
у | 

При этом требуется подсчитать число итераций І и выдать его, 
наряду с найденным корнем Х, на печать. Число итераций І ограни- 
чено максимальным числом М = 500; если при выполнении М итераций 
условие | хл: —х| < ЁР5 оказывается невыполненным, требуется 
выдать текст: 


МЕТОД НЕПРИМЕНИМ 


Поставленная задача может быть решена с помощью следующей 
программы: 


(Ввод ХІ,ЕР5) (ХІ — начальное приближение) 

ОДО =1:500 

Х0=хХ1 | 

ХІ = (арифметическое выражение, определяющее значение 


Ф (Х0 
ІЕ(АВ5(Х 1—Х0).ІТ.ЕРЅ)СО ТО 2 
6 СОМТІЧОЕ 
М\ЕТЕ (1,3) | 
3 РОКМАТ (5Х,16 НМЕТОД, „НЕПРИМЕНИМ) 
ТОР | 
2 МЕІТЕ (1,4) Х1,Т, 
4 ЕОКМАТ (5Х,Е10.4, 5Х, 13) 
ЭГОР 
ЕМО 


_ Обращаем Ваше внимание на то, что в приведенной программе зна- 
чение управляющей переменной |, если число итераций не прево- 
сходит 500, используется вне цикла в операторе с меткой 2. Программа 
включает два оператора ЭТОР. Первый из них (считая в порядке за- 
писи в программе) будет выполняться в случае, когда процесс окажется. 
расходящимся. При этом будет напечатана строка 


МЕТОД НЕПРИМЕНИМ 


Заметим также, что в промежутке программы между операторами 
СОМТИМОЕ и первым оператором ЗТОР управляющая переменная 
оператора цикла неопределена и, следовательно, сюда не может быть 
вставлен никакой оператор, использующий эту переменную. 
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Задание. Для решения систем алгебраических, или тран- · 
сцендентных, уравнений 


6 Ф. (х, у, 2), Н 
0 == Ф (х, у, 2), 
2 == Фз (х, у, г) 


иногда применяется метод простой итерации, согласно которому 


Хп = Фф; (хи, Уп» 21), 

Уп-ы == Фә (х, Уп» 2), 

2п4-1 == Фз (ха Ул 21), 
либо метод итерации типа Зейделя: 


Хп = Фі (хи, Ул» 2), 
Уп-ы = Фә (Хат, Ут» 2), 
| 2п--і == Фз (Ха, 0п4-1, 2): 
Итерационный процесс продолжается до тех пор, пока не будет 
выполнено условие: 


[ках «ЕР Л 0а. 0.1<ЕР Л |2+1—21<ЕРЅ 


где ЕР$ — заданная точность, 

ху, и, 2, — начальное приближение. 

1. Составить фрагмент программы, реализующий метод простой 
итерации для решения системы линейных уравнений: 


ху = ах, -- Ха А зз Е 01 
х, == а дз А аззхз А 0а 
Хз == 031 А ЯззХз | ОззХз Е Ӧз 
с выдачей на печать количества итераций. (Если количество итераций 
М >> 100, организовать выдачу текста: ПРОЦЕСС РАСХОДИТСЯ). 
Требуется написать данный фрагмент в трех вариантах: 
а) рассматривая коэффициенты системы как отдельные простые 
переменные; 
б) полагая, что коэффициенты при неизвестных образуют двумер- 
ный массив А, а свободные члены — одномерный массив В; | 
в) полагая, что все коэффициенты системы образуют общий массив. 
2. Задание 1 (6) выполнить для системы и-линейных уравнений, 
где и произвольно. 
3. Задание 1 (6) выполнить для метода итерации типа Зейделя 


Порция 94 
Оператор ОО (продолжение) 


Если при выполнении некоторого оператора перехода, содержа- 


щегося в области оператора цикла РО, осуществляется выход из этой 
области, то при этом текущее значение управляющей переменной опе- 
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ратора цикла сохраняется и, следовательно, оно может быть исполь- 
зовано при выполнении дальнейших операторов. Это обстоятельство 
использовано в приведенном в предыдущей порции примере: в опера- 
торе с меткой 2 используется переменная Г,, значением которой являет- 
ся число итераций, которое было выполнено до получения искомого 
решения. | 

Вместе с тем, согласно синтаксису языка ФОРТРАН, при завер- 
шении оператора цикла по исчерпанию всех допустимых значений 
управляющей переменной (т. е. при достижении ею значения, прево- 
сходящего максимальное значение) осуществляется переход на опера- 
тор, непосредственно следующий в записи программы за конечным 
оператором цикла, и при этом параметр цикла становится неопреде- 
ленным. На данное обстоятельство следует обратить особое внимание. 
Поэтому, например, в приведенной выше программе вместо оператора 


УГЕТТЕ (1,3) 
нельзя записать оператор 
ЎУВІТЕ (1,4) Х1,1. 


поскольку после выхода на этот оператор значение переменной 1, не 
определено. 

Задание. Массив А содержит М элементов. Составьте фрагмент 
программы, определяющий число неотрицательных элементов в мас- 
сиве А, расположенных с начала массива до первого отрицательного 
элемента, и выдающий это число на печать. Если первый элемент ока- 
жется отрицательным, то должно быть напечатано число 0. 


_ Порция 95 
Список типа цикл в операторах ввода-вывода 


В порциях 43—64 гл. П мы рассматривали способы ввода-вывода 
значений простых переменных, элементов массивов и массивов, ука- 
занных в списках операторов КЕАР и \УЕТЕ. Кроме простых спис- 
ков (т. е. списков, элементами которых являются идентификаторы 
простых переменных, переменных с индексами или идентификаторы 
массивов), в ФОРТРАНе допускается использование списков типа 
ЦИКЛ. 

Список типа цикл — это список, который содержит спецификацию 
цикла. Формат: спецификации типа цикл следующий: 


= ту, тз 
ИЛИ 
= т. т, 


Здесь і — простая переменная целого типа; Ру 
у, т», тз — целые положительные константы или простые 
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переменные целого типа, имеющие тот же смысл, что и в операторе ро, 
и удовлетворяющие тем же ограничениям, которые были перечислены 
при рассмотрении оператора РО (см. порцию 87). 

Примеры операторов ввода-вывода, содер - 
жащих список типа цикл: 


1. ВЕАР (2,5)(В(1),1—1,8) 


Эта запись означает, что оператором ВЕАР с перфокарт будут вве- 
дены значения первых восьми элементов массива В по формату, за- 
данному в операторе ЕОКМАТ с меткой 5. Список типа цикл в этом 
операторе эквивалентен следующему простому списку: | 

В(1),В(2),В(3),В(4),В(5),В(5),В(7),В(8) 

2 МЕ (1,7)(6,5(3),Т(Ј--1),7=2,6) 

Т ЕОВКМАТ (3Е10.5) 

Эта запись означает, что оператором МВІТЕ на бумажной ленте бу- 
дут напечатаны значения переменных К, 5(Ј) и Т(Ј--1) в таком по- 
рядке: 


Номер Переменные, значения 
строки которых будут напечатаны 
| строка В $(2) Т(3) 

2 строка В $(3) Т(4) 

3 строка В $(4) Т(5) 

4 строка В $65) Т(6) 

5 строка В $(6) Т(7) 


Значения указанных переменных будут напечатаны в формате, 
заданном в операторе ЕОВМАТ с меткой 7. Список типа цикл в этом 
операторе вывода эквивалентен следующему простому списку: 

,5(9),Т(3),8,9(3),Т(4),8,5 (4),Т(5),К,5 (5),Т(6),К,5(6),Т(7) 

Как видно из примеров, элементы массива, входящего в список 
типа цикл, перебираются при каждом повторении цикла по правилам 
изменения управляющей переменной в операторе РО (см. порцию 87). 

При использовании в операторах ввода-вывода списков типа цикл 
необходимо соблюдать следующие правила: 

Правило 1. Спецификация цикла в списке типа цикл отделяется 
от простого списка запятой, а вся конструкция (простой список и 

спецификация цикла) заключаются в скобки: | 


Запись списка типа цикл вида | | 
ошибочна, так как в ней, во-первых, отсутствуют внешние скобки, 
во-вторых, нет запятой перед спецификацией цикла и, в-третьих, 
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‘индексное выражение К — 1 будет равно нулю при К = 1, что не до- 
пускается правилами ФОРТРАНа. 
Правило 2. Допускается использование вложенных списков типа 


цикл. Например: 
(НОКТЕ), К 157)82;4) 


В таком случае каждая из спецификаций цикла имеет свою управляю- 
щую переменную (К и Г. в нашем примере). Первая спецификация оп- 
ределяет внутренний цикл, вторая — внешний. Запятые и скобки, 
проставленные в примере, обязательны при записи вложенных списков 


типа цикл. 
Пример использования вложенных сетуге 


ков типа ШИКЕЛ: 
(АТ, 7=1,4) 1=1,5) 
Элементы списка будут переданы в следующей последовательности: 
АТ(1,1), АТ(1,2), АТ(1,3), АТ(1,4) 
АТ(2,1), АТ(2,9), АТ(,3), АТ(2,4) 
АТ(3,1), АТ(3,2), АТ(3,3), АТ(З,4) 
АТ(4,1), АТ(4,9), АТ(4,3), АТ(4,4) 
АТ(5,1), АТ(5,2), АТ(5,3), АТ(5,4) 


| Этот пример показывает, как можно передать данные для двумер- 

ного массива по строкам. Передача данных по столбцам может быть 
задана простым списком: АТ, а также посредством вложенного списка 
типа цикл: 


СА Лт 
Правило 3. Списки операторов ввода-вывода могут содержать ком- 
бинации простых списков и списков типа цикл. Например: 
В(4),[.3,(В(К),К = 1,10),А (Е(1,Ј),Ј =2,10,2) 
Приведенный в этом примере список состоит из двух простых спи- 
сков: 
В(4), 13 
А 


и двух списков типа цикл: 


(В(К),К= 1,10) 
(Е(1,7);7=9,10,9) 


Одним из основных преимуществ использования списков типа цикл 
является то, что программист имеет возможность указать переменное 
число вводимых-выводимых значений, поскольку в качестве индексов 
могут быть использованы любые допустимые индексные выражения. 
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Второе преимущество заключается в том, что списки типа цикл 
часто оказываются проще простых списков. 

Задание. 1. Напишите оператор ВЕАР для ввода значений 
простых переменных АК, ВХ, С7 и массивов К1(2,3), В(4). Причем 
элементы двумерного массива К1 должны быть введены по строкам. 

2. Запишите эквивалентный этому оператор КЕАР с простым 
списком. 


Порция 96 
Вспомогательные операторы ввода-вывода 


Кроме операторов ввода-вывода, описанных в порциях 45, 44, 
66 и используемых для ввода информации с перфокарт и вывода на 
печать, в языке ФОРТРАН имеются специальные операторы ввода- 
вывода для работы с магнитной лентой, т. е. для управления магнит- 
ной лентой во время записи на нее или считывания с нее информации. 
Имеется три разновидности вспомогательных операторов ввода- 
вывода: = 

1. Оператор ВЕМІМр 

2. Оператор ВАСК$ЗРАСЕ 

3. Оператор ЕМРЕШЕ 

Давайте разберем подробно каждый из этих операторов. 

Оператор КЕМПО 

Этот оператор используется для перемотки магнитной ленты к 
началу первой информационной зоны. Оператор КВЕМІМ” имеет сле- 
дующий формат: 

ВЕМІМО а 


Здесь а — целая положительная константа, обозначающая символи- 

ческий номер накопителя на магнитной ленте, или идентификатор це- 

лой переменной (значение которой определяет номер устройства). 
Пример записи: 


КЕМІХО 4 


Данная запись означает, что в. момент выполнения этого оператора 
магнитная лента, находящаяся на лентопротяжном механизме, имею- 
щем символический номер 4, будет перемотана на начало первой ин- 
формационной зоны. 

Оператор ВАСКХРАСЕ 

Выполнение этого оператора вызывает возврат на одну запись на 
указанном накопителе. Оператор ВАСКЅРАСЕ имеет следующий 
формат: 


| А ВАСК$РАСЕ а | 
Здесь а — имеет тот же смысл, что и в операторе КЕМІМР 
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Если накопитель, номер которого указан в операторе ВАСК$РАСЕ, 
находится в начальном положении, то выполнение этого оператора 
не вызывает никаких действий. Если же необходимо выполнить воз- 
врат на несколько записей, оператор ВАСК$РАСЕ необходимо повто- 
рить требуемое количество раз. 

Пример записи оператора: 


ВАСК$РАСЕ 3 


Выполнение этого оператора вызовет возврат магнитной ленты, 
установленной на лентопротяжном механизме с символическим номе- 
ром 3, на одну запись. 

Оператор ЕМОЕПЕ 

Оператор ЕМРЕШЕ используется после вывода массива на маг- 
нитную ленту. Выполнение этого оператора вызывает запись на ука- 
занной магнитной ленте признака конца массива. Оператор ЕМОЕП.Е 
имеет формат: 


ЕМЕШ а 


Здесь а — имеет тот же смысл, что и в операторе РЕМІМР. 
Пример записи оператора ЕМРЕТЕЕ: 


ЕМРЕШЕ 2 


Выполнение этого оператора вызовет запись на магнитной ленте, 
установленной на лентопротяжный механизм с символическим номе- 
ром 2, признака конца массива. | 

Задание. 1. Перечислите вспомогательные операторы ввода- 
вывода. 

2. Когда используются эти операторы? 


Порция 97 
Оператор "РАТА 


Оператор РАТА, называемый еще оператором начальных данных, 
используется для задания начальных значений, как числовых, так И 
текстовых, переменным или элементам массивов. Важной особенностью 
оператора РАТА является то, что присвоение им начальных значений 
переменным осуществляется во время загрузки, а не во время выпол- 
нения рабочей программы. Это значит, что присвоение начальных зна- 
чений с помощью оператора РАТА при выполнении данной программы 
происходит только один раз. Оператором РАТА удобно пользоваться 
в следующих случаях: | | 

1. Составленная из ряда знаков константа используется в некото- 
рой программной единице многократно; присваивая ее значение не- 
которой переменной, мы освобождаем себя от необходимости записи 
«длинной» константы (например, констант п, е ит. д. с большим числом 
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знаков) в последующих операторах, получая возможность указывать 
вместо этой константы ее идентификатор. 

В данном применении оператор ВРАТА выполняет фактически 
те же функции, что и операторы присвоения. Однако использование 
оператора РАТА позволяет выполнить в одном операторе присвоение 
значений целому ряду переменных, т. е. уменьшить количество опера- 
торов в данной программной единице. Последнее особенно удобно, 
когда нескольким переменным присваивается одинаковое значение. 

2. Оператор РАТА позволяет присваивать переменным текстовые 
значения, чего нельзя сделать оператором присвоения; поэтому” его 
можно с успехом использовать для выдачи заголовков программ и дру- 
гой текстовой информации, не зависящей от конкретного условия 
(варианта) задачи. Такие заголовки (или комментарии) могут выво- 
диться в надлежащие моменты вычислительного процесса для прида- 
ния большей наглядности выводимой информации или для ведения 
диалога между ЭВМ и человеком. 

Оператор РАТА имеет формат: 


РАТАХ, /4,/,8,/4,/,,/3/, 0..3 к. /А„/ 


Здесь в каждой паре К, /4,/, разделенных запятыми: 
К, — список идентификаторов простых переменных или перемен- 
ных с индексом; 
4; — список констант; значения которых присваиваются тем пе- 
ременным, идентификаторы которых перечислены перед сим- 
волом «/» в списке Ё;,. 
Примеры записи операторов РАТА: 


РАТА Р!/3.1416/,Е/2.718/,М(1)/72/ 
нан РАТА РІ,Е,М(1)/3.1416,2.718,72/ 


Элементы списков (как и их пары) разделяются запятыми. Списки 
идентификаторов и списки констант в каждой паре &,/4,/ в операторе 
РАТА должны быть согласованы. по числу элементов и их типам. 
Однако текстовым константам могут соответствовать в списках иден- 
тификаторы любого типа. Смысл оператора РАТА поясним на примере. 

Пример: 


Р1МЕМЗТОМ АІРНА (2,3) 

ГОСТСАТ, ВІМ, КОМ | 

СОМРІ.ЕХ КОМР а 

РАТА А1,А2/192.7,13.7/,КІ, Колт, 3/,КІМ,КОМ/.ЕАІЅЕ., 
І.ТКОЕ./,АТРНА(1,1),КОМР/І.1,(5.,6.5)/ 


(Обращаем Ваше внимание на то, что первый символ 1 в последней 
строке приведенного фрагмента является символом продолжения, т. е. 
он должен быть записан в шестой позиции строки бланка программы. 
Для большей наглядности в этом и последующих примерах, где встре- 
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чается символ продолжения, между предполагаемыми шестой и седь- 
мой позициями будет проведена вертикальная черта). | 
Приведенный в этом примере оператор РАТА перед выполнением 
данной программной единицы присвоит переменным вещественного 
типа А] и А2 значения 12.7 и 13.7 соответственно: переменным целого 
типа ҚІ и К2 значения 7 и 3, переменным логического типа КІМ и 
КОМ значения .РАІЅЕ. и .ТРОЕ. соответственно, переменной ком- 
плексного типа КОМР — значение (5.,6.5), а элемент массива АТГРНА 
(1,1) получит значение 1.1. 
Списки переменных в операторе РАТА формируются произвольным 
образом, необходимо только соблюдать соответствие их элементов 
элементам списка констант. Кроме того, в этот список не могут быть 
включены формальные параметры и идентификаторы внешних функ- 
ций, о которых будет идти речь в гл. [У. Например, оператор РАТА, 
приведенный в предыдущем примере, можно записать следующим об- 
разом: 
"РАТА А1,А2,К1,К2, АТРНА Е РАТ А 
ІІМ, КОМ, КОМР/.ВАТЗЕ.,.ТВИЕ. ,(5.,6.5)/ 

ИЛИ ! 
РАТА А1,А2,К1,К2, АТРНА (1,1), КОМР, К 1М,ВОМ/12.7, 
13.7,7,3,1-1,(5:,6.5)„РАТЗЕ., ТВОЕ 


Задание. Запишите оператор начальных данных, присваи- 
вающий переменным ЕКТ, ВМ, ВОМ, АТОМА (2,3) значения констант 
275.1, 17.3, 0.05, 37.8 соответственно. | | Т 


Порция 98 
Оператор РАТА (продолжение) 


Если нескольким элементам списка переменных в операторе РАТА 
присваиваются одинаковые значения, то вместо многократного повто- 
рения соответствующей константы перед ней можно поставить множи: 
тель вида Ј*, где Ј — целая положительная константа, указывающая, 
сколько раз должна быть повторена данная константа в списке на- 
чальных значений. 

Пример: 

РІМЕМЅІОМ ВЕТА (10) | 

РАТА Х, ВЕТА (2), ВЕТА (3), ВЕТА (8), ВЕТА (10)/5*1.0/ 


Перед выполнением программы для переменной Х и четырех элемен- 
тов массива ВЕТА будут установлены значения, равные 1.0. 

Қак отмечалось выше, операторы РАТА могут задавать перемен- 
ным не только значения числовых констант, но и текстовых. (Напом- 
ним, что в качестве идентификаторов переменных, используемых для 
присвоения текстовых значений, используются идентификаторы 
переменных или массивов любого типа). | 
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Пример: 
РАТА А, В, С/5ННОМЕР, 4НДАТА, 5НКОНСТ/ 


При выполнении этого оператора в поле памяти с именем А будет по- 
мещена текстовая константа НОМЕР, в поле с именем В — константа 
ДАТА и в поле с именем С — константа КОНСТ. 

Каждая конкретная реализация накладывает определенные огра- 
ничения на максимальную допустимую длину текстовых констант 
(соответственно с размером полей памяти, отводимых для переменных 
того или иного типа). Однако поля переменных или элементов массива 
типа СОМРГЕХ или РООВІЕ РВЕСІЅІОМ, которым присваиваются 
оператором РАТА значения текстовых констант, могут содержать 
в два раза больше символов, чем поля памяти для данных типа 
ІЧТЕСЕВ, ВЕАГ и ГОССАЕ. 

Если текстовая константа состоит из числа символов, меньшего 
максимально допустимого их числа, то символы текстовой константы 
будут справа дополнены соответствующим числом пробелов. Если ее 
длина превышает максимально допустимое число символов для пере- 
менной данного типа, то соответствующее число самых правых симво- 
лов константы отсекается. 

Текстовые константы, значения которых присваиваются элементам 
массивов, могут состоять из произвольного числа символов, так как 
в таком случае текстовая константа по соответствующему количеству 
символов, определяемому реализацией, последовательно заносится 
в поля, отведенные под элементы массива. 

Предположим, что некоторая реализация допускает длину тексто- 
вых констант 6 символов для переменных типа ПМТЕСЕК, КЕАЕ и 
.ОСТСАЕ и 12 символов для переменных типа СОМРІЕХ и РОЧВЕЕ, 
РВЕСІЅІОМ. Тогда значения, присвоенные переменным АВК, ВКК, 
МАС (1), МАС (2), МАС (3) и РОВ операторами . 

рІМЕМЅІОМ МАС(3) 
рООВІЕ РВЕСІЅІОМ РОВ 
РАТА АРР,ВРВ,МАС/6НМАССИВ,6НДАННЫХ, 
1 І8НВЕЩЕСТВЕННОГО, ,ТИПА/, РОВ/7НТАБЛИЦА/ 


будут следующими: 


Идентифи- 

катор эле- 

катор те АВЕ | ВВВ | МАС(1) | МАС(2) | МАС (3) ров 

ка пере- 

менных 

Начальное | МАССИВІДАННЫХ ВЕЩЕСТВЕННОГ [О /ТИПА ТАБЛИ 
значение ДЕ ЗЫ 
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Задание. В массив А, состоящий из шести элементов, нужно 
заслать оператором ПАТА следующую текстовую константу: 


46 НЗНАЧЕНИЯ, ‚ПЕРЕМЕННЫХ, ПОСЛЕ, „ВЫПОЛНЕНИЯ 
‚ ПРОГРАММЫ 


Запишите оператор РАТА для присвоения элементам массива соот- 
ветствующих значений, причем составьте этот оператор так, чтобы 
в каждый элемент массива было послано отдельное слово приведенно- 
го выше выражения. Предположим, что длина текстовых констант 
для переменных типа ПМТЕСЕВ, ЮЕАЕ и ГОССАГ, — 6 символов и 
для переменных типа СОМРГЕХ и РООВІЕ РВЕСІЅІОМ — 12.. 


Порция 99 
Оператор РАТА (продолжение) 


Правила использования оператора РАТА 


Правило 1, Оператор начальных данных используется для задания 
начальных значений простых переменных или элементов массива, чис- 
ло которых должно быть равно числу констант в каждой из пар #,/4, 
(с учетом коэффициента повторения). 

Правило 2. Переменная или элемент массива, которым присваи- 
ваются значения оператором РАТА, не могут находиться в непоме- 
ченном общем блоке. Начальные значения переменных или элементов 
массивов, находящихся в помеченных общих блоках, могут быть опре- 
делены только в сопрограммах данных (общие блоки и сопрограммы 
данных описаны в главе ГУ). Таким образом, с помощью оператора 
РАТА, помещаемого в какой-либо программной единице (не в сопро- 
грамме ВГОСК РАТА), могут задаваться только начальные данные 
переменным, не входящим в общие блоки. : 

Правило 3. Оператор РАТА может находиться в любом месте про- 
граммной единицы между последним оператором спецификации и ко- 
нечной строкой ЕМР. | | | 

Правило 4. Списки переменных в операторе РАТА не должны со- 
держать формальных параметров (о формальных параметрах будет 
идти речь ниже), а также идентификаторов внешних функций. | 

Правило 5. Индексы переменных в списке переменных оператора 
РАТА должны быть целыми положительными константами. 

Правило 6. Единице памяти в выполняемой программе может быть 
задано начальное значение только один раз. $ 

Задание. Найдите ошибки в приведенных ниже операторах 
начальных данных и напишите варианты правильных операторов: 

а) РАТА А,В,С,р/2.7,2+4.0/ 

6) СОММОМ /К/Х,У,7 

_ "РАТА В,Х/2.0,0.0/ 

в) РАТА 4(1),А(3),А(К)/31.0/ 


Глава ТУ 


Функции и подпрограммы 


Порция 100 
Классы функций и подпрограммы. 


Экономию труда при написании программ обеспечивает использо- 
вание различного вида функций и подпрограмм, предусмотренных 
в ФОРТРАНе. Можно предварительно написать один раз некоторый 
оператор или их последовательность — тело процедуры — а затем 
по мере необходимости обращаться к их выполнению. Для такой цели 
ФОРТРАН включает развитый аппарат средств, которые в языках 
программирования принято подразделять на два класса: 

1. Процедуры для вычисления функций (другие названия: про- 
цедуры-функции, функции); 

2. Процедуры-подпрограммы (иначе: подпрограммы ЗОВКОЧТИМ\Е, 
подпрограммы). 

Основное различие между функциями и подпрограммами состои 
в способе обращения к этим процедурам. 

В случае функций обращение к соответствующей процедуре, пред- 
назначенной для вычисления, как правило, одного значения — значе- 
ния функции — осуществляется посредством так называемого ука- 
зателя функции, который не является оператором, а лишь использует- 
ся в качестве первичного выражения. 

В отличие от этого подпрограммы обычно предназначаются для 
вычисления ряда значений (в том числе значений разных типов, а так- 
же всех или части элементов массивов и пр.) и определяются как за- 
конченные единицы действия, в связи с чем обращение к ним в языках 
программирования (например, в ФОРТРАНЕ, АЛГОЛе-60, ПЛА и 
многих других) определяется Посредством операторов вызова под- 
программ, называемых также операторами обращения к подпрограм- 
мам. | 
Единицы действия языка, которые обращаются к выполнению не- 
которых процедур, называются вызывающими, а сами процедуры — 
вызываемыми. | Е | 

Подпрограммы на языке ФОРТРАН оформляются в виде отдель- 
ных программных единиц, начинающихся оператором ЗИВКОЧТИХЕ, 
в связи с чем их называют иногда подпрограммами ЗОВКОСТИМЕ 
или процедурами ЗОВКОЧТИМЕ. Ех 
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Что касается функций, то в ФОРТРАН по способу их определения 
следует различать три класса функций: | 

1. Операторные. 

2. Встроенные. 

3. Внешние, называемые также процедурами ЕОМ№СТІОМ (рис. 28). 


Процедура 


Функция Подпрограмма 


Встроенная Внешняя 
функция функиия 


Основная 
днешняя 
функиия 


Рис. 28 


Операторная 
функция 


Функция 
типа 
РОМСТІОМ 


Изучению этих важных средств программирования мы предпош- 
лем рассмотрение некоторых общих для них понятий. 

Задание. 1. Назовите классы вычислительных процедур, ис- 
пользуемых в языке ФОРТРАН. | 

2. Назовите типы функций, используемых в ФОРТРАНе. 

3. Какие единицы языка называются вызывающими? вызывае- 
МЫМИ? 


Порция 101 
Идентификаторы функций и подпрограмм 


С каждой из вычислительных процедур — функций или подпро- 
грамм — связывается некоторый идентификатор, называемый соот- 
ветственно идентификатором данной функции или подпрограммы. 
Посредством идентификаторов функций и подпрограмм осуществля- 
ется обращение к процедурам их выполнения (вычисления). 

Что касается встроенных функций, то пропедуры их выполнения 
содержатся в реализации языка, и аппарат их выполнения преду- 
сматривает включение (встраивание) соответствующих команд (чис- 
ло которых для каждой из них весьма невелико) во все точки объект- 
ной программы, где данная функция используется. 

Заметим также, что идентификаторы встроенных функций заранее 
определены и закреплены за этими функциями. Список встроенных 
функций, предусматриваемых стандартом языка, приведен в табл. 93 
(стр. 280). Точно так же за некоторыми внешними функциями, оформ- 
ляемыми реализацией языка в виде отдельных программных единиц 
и называемыми основными внешними функциями, закреплены 
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определенные идентификаторы. Список основных внешних функций 
приведен в табл. 24 (стр. 282). 

Во всех остальных случаях идентификаторы для функций и под- 
программ выбираются составителем программы согласно общим 
правилам построения идентификаторов, т. е. идентификатор является 
буквенно-цифровой последовательностью, содержит не более 6-ти 
символов и начинается с буквы (в некоторых случаях на использование 
идентификаторов тех или иных классов функций и подпрограмм на- 
кладываются дополнительные ограничения; о них мы узнаем по мере 
изучения этих важных средств программирования). 

Задание. 1. Для какой цели вводятся идентификаторы функ- 
ций и подпрограмм? 

9. Для каких классов функций закреплены идентификаторы? 

3. Какие из приведенных идентификаторов являются идентифи- 
каторами встроенных функций? основных внешних функций (соглас- 
но стандарту языка) МАХО, МАХ, РММ, ВЕАГ, 1ЫХ, ЕХР, 
СЕХР, АГ.ОС10, 2СО$, ССО$, АТАМ? Какие типы аргументов и функ- 
ций они определяют? 


Порция 102 
Фактические и формальные параметры 


Каждая вычислительная процедура, помимо идентификатора, ис- 
пользуемого для ее обозначения и обращения к ней, характеризуется 
перечнем аргументов, которые в языках программирования принято 
называть параметрами. 

Понятие параметров в языках программирования является одним 
из основополагающих. 

При записи вычислительных процедур, вызываемых теми или ины- 
ми программными единицами, их параметры обозначаются идентифи- 
каторами и называются они формальными параметрами. При этом 
разные формальные параметры обозначаются различными идентифи- 
каторами. 

Существенно заметить, что в качестве формальных параметров про- 
цедур могут быть использованы не только идентификаторы перемен- 
ных, принимающие в момент вызова процедуры значения тех или иных 
выражений — фактических параметров, но и идентификаторы, заме- 
шаемые в момент вызова процедуры фактическими параметрами, 
именующими результат. Я 

В первом случае принято говорить о формальных параметрах, вы- 
зываемых значением (или по значению). Таким идентификаторам на 
время выполнения процедуры отводится определенная память, име- 
нуемая этими идентификаторами, а в момент вызова в эту память по» 
мещаются передаваемые значения аргументов — фактических ‚ пара- 
метров. Во втором случае формальный параметр в процедуре является 


138 


лишь обозначением позиции, которая должна быть замещена соот- 
ветствующим фактическим параметром. В этом случае говорят о фор- 
мальных параметрах, вызываемых наименованием (или по наимено- 
ванию). Так, если таким параметром будет идентификатор простой 
переменной, которой присваивается в процессе выполнения процеду- 
ры некоторое значение, то получаемый результат будет пересылаться 
в поле, обозначаемое соответствующим фактическим параметром. 

Следующий пример иллюстрирует использование формальных па- 
раметров, вызываемых по значению и по наименованию: 


Вызывающая программная Вызываемая программная 
единица единица 
ВЕАР(2,5)А,БЕ ' ЅОВВООТІМЕ РІ(Х,Ү,7) 
о РОКМАТ(ЗЕ10.1) б На е ПРА В 
С=А*Ғ/(2.-Е4) Н ТА аал ИИ 


е Ф ® 


САШ. РІ(А,В,С) | ВЕТОВМ ° 
$()=А--В»АжЗ °°° ЕМР 
сор" 

ЕМО 


Разберем подробно этот пример. Вызываемая программная едини- 
ца является подпрограммой и вызывается с помощью специального’ 
оператора САГГ. Подпрограмма обозначена идентификатором РІ и 
имеет формальные параметры Х, У, 7. Давайте теперь посмотрим, 
как взаимодействуют формальные параметры Х, У и 7 с фактиче- 
скими параметрами (А, В, С), указанными в операторе САГТ, в вызы- 
вающей программной единице. Поскольку значение переменной А 
определяется при выполнении оператора ввода, а переменная С полу- 
чает определенное значение при выполнении арифметического опера- 
тора присвоения, то формальные параметры Х и 7, соответствующие 
фактическим параметрам А и С, будут вызываться значением, т. е. 
в память, отведенную переменным Х и 7, будут помещены значения А 
и С соответственно. Значение третьего формального параметра У 
вычисляется в процессе выполнения подпрограммы, его значение бу- 
дет помещено в поле, отведенное фактическому параметру В. Этот 
формальный параметр вызывается наименованием. 

В языке ФОРТРАН приняты некоторые ограничения на исполь- 
зование формальных параметров, вызываемых по наименованию. В том 
случае, когда фактический параметр является выражением, соответ- 
ствующий ему формальный параметр вызывается значением. Послед: 
нее означает, что в момент вызова вычисляются значения выражений, 
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являющихся фактическими параметрами, при текущих значениях 
входящих в них величин; последние должны быть определены к мо- 
менту вызова. Эти значения присваиваются формальным параметрам 
(т. е. эти значения засылаются в поля памяти, обозначаемые формаль- 
ными параметрами). Напомним, что величина является определенной, 
если ее идентификатору присвоено значение, т. е. в выделенное ей 
поле памяти заслано некоторое значение, соответствующее ее типу. 

С другой стороны, если фактический параметр соответствует фор- 
мальному параметру и значение последнего в процедуре определя- 
ется или переопределяется (посредством оператора присвоения или 
ввода), то этот формальный ‘параметр вызывается по наименованию, 
а фактический параметр может быть только идентификатором простой 
переменной, переменной с индексами или идентификатором массива. 

Для обрашения к процедуре необходимо указать, какие объекты 
должны быть использованы вместо формальных параметров, т. е. за- 
дать в вызывающей программной единице фактические параметры. 
Естественно, формальные параметры и фактические должны быть меж- 
ду собой согласованы в количестве, и каждому формальному парамет- 
гру должен быть сопоставлен определенный фактический параметр, 
что достигается заданием в вызываемой процедуре списка формальных, 
а в вызывающей — списка фактических параметров; в каждом из 
списков параметры разделяются запятыми, а сами списки заключают- 
ся в скобки. Формальные и фактические параметры должны быть со- 
гласованы в порядке их перечисления в соответствующих списках. 
Кроме того, требуется согласование между типами формальных и фак- 
тических параметров. 

Списки формальных и фактических параметров указываются соот- 
ветственно в вызывающей и вызываемой процедурах после иденти- 
фикатора данной процедуры. 

_ В рассмотренном выше примере фактические параметры вызыва- 
ющей программы А, В, С согласуются с формальными параметрами 
подпрограммы РІ и в числе (3), и в типе (и в том и в другом списке 
все переменные являются вещественными). | 

Задание. 1. Какие (формальные или фактические) параметры 
необходимо задать при обращении к некоторой процедуре? 

2. Какие способы вызова формальных параметров допускаются 
в языке ФОРТРАН и в каких случаях они используются? 

3. Связано ли использование формальных параметров, вызывае- 
мых по значению, с выделением специальной памяти для них внутри 
соответствующей процедуры? 

4. Связано ли использование формальных параметров, вызывае- 
мых по наименованию, с выделением специальной памяти для них внут- 
ри соответствующей процедуры? 

_5. Как должен вызываться формальный параметр процедуры, обо- 
‘значающий результат ее выполнения? 
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6. Чем может быть фактический параметр, обозначающий резуль- 
тат выполнения процедуры? | 

7. В чем должны согласовываться списки формальных и фактиче- 
ских параметров процедур? 

8. Требуется ли согласование списков формальных параметров 
двух разных процедур? 


Порция 103 
Связь между фактическими и формальными параметрами 


‚ ^ Выполнение обращения к процедуре приводит к связи фактиче- 
ских параметров со всеми употреблениями формальных параметров 
в теле этой процедуры. При этом, если фактический параметр являет- 
ся переменной с индексами и выражения, составляющие индексы, 
содержат переменные, то такой фактический параметр автоматически 
заменяется тем же параметром со списком постоянных индексов, рав- 
ных их текущим значениям, полученным непосредственно в момент 
установления связи между параметрами (такая замена осуществляет- 
ся транслятором). 

Пример. 

В вызываемой процедуре Р переменные Х и У являются формаль- 
ными параметрами, причем Х вызывается значением, а У — наиме- 
нованием (У встречается в левой части оператора присвоения). Среди 
выполняемых операторов в этой процедуре имеется оператор 


Ү=Х+Ү + Хау 


Пусть в качестве фактических параметров для Х и Ү в вызывающей 
процедуре соответственно используются выражения АВ (№ + 1), 
АР (К — 2), и в момент обращения к вызываемой процедуре М = 2, 
К = 4. Тогда в момент вызова значение переменной АВ (3) (т. к. М + 
1 =2--1 = 3), которое должно быть определенным в вызывающей 
программной единице, будет присвоено формальному параметру Х, 
а формальный параметр У в процедуре всюду будет заменен факти- 
ческим АР” (2) (т. к. К —2 = 4 — 2 = 2), т. е. в процедуре Р будет 

выполняться оператор | 


Ар(9) =Х-+-Ар(2)--Х*Ар(2) 


причем значение Х равно значению АВ (3). 

Формальному параметру, являющемуся идентификатором масси- 
ва, может соответствовать фактический параметр, являющийся Только 
идентификатором массива или элементом массива того же тийа. 

‚ Обратим Ваше внимание еще на одно обстоятельство. | 

Как было отмечено в порции 102, формальные параметры любой 

процедуры должны быть отличными друг от друга идентификаторами 
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(и только идентификаторами). Что касается фактических параметров, 
то такого ограничения на них не накладывается. Так, процедура, 
предназначенная, например, для вычисления суммы квадратов двух 
величин и оформленная посредством использования двух формальных 
параметров — идентификаторов соответствующих переменных (на- 
пример, ЗОВКОЧТГ\Е А (С, 0)), естественно, может быть примене- 
на для вычисления суммы квадратов двух равных величин (или выра- 
жений) или суммы квадратов двух величин, из которых первая равна, 
например, Х, а вторая Х -| У (т. е. вызывающий оператор может иметь 
вид: СА. А (Х--5.,Х--5.) или САТТА (Х,Х-- Ү)). Таким образом, 
фактические параметры могут оказаться совпадающими или связан- 
НЫМИ. 

Напоминаем еще раз, что правила языка ФОРТРАН допускают 
задание фактических параметров при вызове процедур, совпадающих 
или связанных между собой, только для таких формальных парамет-. 
ров, которые в процессе выполнения процедуры не определяются (и не 
переопределяются), т. е. для параметров, вызываемых значением. 

Такое же ограничение накладывается на все те процедуры, 
для которых допускается связь между их формальными параметрами 
и величинами в общем блоке. Понятие общего блока величин будет 
объяснено позднее. 

_ Задание. 1. Какой фактический параметр может соответство- 
вать формальному параметру, являющемуся идентификатором масси- 
ва? 

2. Могут ли формальные параметры быть одинаковыми идентифи- 
каторами? А фактические параметры? 


Порция 104 
Указатели функций 


„/ В ФОРТРАНе определены только такие функции, в которых выде- 
‘лен по меньшей мере один формальный параметр (в отличие от, на- 
пример, языков АЛГОЛ-60, ПЛ/1 и др., в которых допускаются функ: 
ции без параметров). 

В порции 22 было отмечено, что обращение к функциям осущест- 
вляется с помощью так называемых указателей. 

Что же представляют собой указатели функций? 

Указателем функции называется конструкция, представляющая 
собой идентификатор данной функции, за которым в круглых скоб- 
ках записан в установленном порядке (соответствующем порядку, при- 
нятому в списке формальных параметров) список фактических пара- 
метров, разделенных между собой запятыми. Например, указателем 
функции ЗПМ при вычислении значения синуса для аргумента Х -+1.2 
будет $1М (Х-Е1.2) (обращаем Ваше внимание на то, что аргумент 
функции $1М, как и любой другой функции в языке ФОРТРАН, дол- 
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жен быть взят в скобки). Выражение Е(Х -|-2.1,4) может служить ука- 
зателем функции Е, определенной с помощью двух формальных пара- 
метров (первый из которых вещественного типа, а второй — целого). 

Оба приведенных указателя функций могли бы быть использованы, 
например, в следующем операторе присвоения: 


Т=51Ҹ1.31)-+-Е(Х --2.1,4)2 


(если функция Е является функцией вещественного типа). 
Задание. Напишите указатель функции для вычисления коси- 
нуса для аргумента Х? — А. 


Порция 105 
Типы функций 


Как было отмечено в порции 100, в процедурах, предназначенных 
для вычисления функций, выделяется одно значение, принимаемое 
в качестве результата, присваиваемого ее идентификатору и возвра- 
щаемого в точку вызова через указатель этой функции. ФОРТРАНом 
устанавливается возможность получения такого результата при вы- 
числении каждой конкретной функции при любых допустимых для 
этой функции значениях параметров только одного, раз навсегда для 
нее установленного типа, называемого типом функции. — ла 

ФОРТРАН допускает функции целого, вещественного, повышен- 
ной точности, комплексного и логического типов. ии | 

Целый и вещественный тип функций может быть определен, как и 
тип переменных этих двух типов, неявно. Для функций целого типа 
при неявном определении типа требуется выбирать идентификатор, 
начинающийся одной из букв І, У, К, Г, М, М; для вещественного ти- 
па — одной из остальных букв латинского алфавита. В прочих слу- 
чаях тип должен быть специфицирован для идентификатора функции 
явно (об этом подробнее будет говориться далее). | 

Существенно отметить, что идентификатором определяется (явно 
или неявно) не только тип. функции. Этому идентификатору присваи- 
вается и результат выполнения соответствующей процедуры. Это зна- 
чит, что тип идентификатора функции определяет тип результата ее 
выполнения. 

Типы встроенных функций, как это было отмечено в порции 101, 
определены табл. 23 (стр. 280), и специального описания их типов 
в программах на ФОРТРАНе не требуется. То же самое касается 
типов основных внешних функций. 

Так как операторные функции могут быть использованы только 
в той программной единице, в которой они приведены, то описание 
их типа в случае его явного задания должно быть дано в той же про- 
граммной единице. Такое описание типа задается. оператором специ- 
фикации, как и при задании типа переменных, с помощью соответст- 
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вующего спецификатора. Формальные параметры операторной функ- 
ции могут быть использованы в качестве идентификаторов других 
объектов, используемых в данной программной единице, например 
формальных параметров других операторных функций, идентифика- 
торов внешних функций или идентификаторов простых переменных. 
Приведем примеры задания типа операторных функций. 


терра. Тип функции Место и способ задания типа 
А вещественный может быть задан неявно 
В ‚ целый в той же программной единице опера- 
| тором спецификации типа ІМТЕСЕК В 
С логический в той же программной единице опера- 
тором спецификации типа ГОССАГ С 
АР повышенной точности в той же программной единице опера- 


тором спецификации типа РрОЧВІЕ 
"РКЕСІЅІОМ№ АР 


Р комплексный в той же программной единице опера- 
| тором спецификации типа СОМРГЕХ Р 
М вещественный в той же программной единице опера- 
тором типа КЕАГ М 
К целый может быть задан неявно 


Для внешних функций в случае необходимости явного задания их 
типа это задание должно быть приведено как в вызывающей, так и в 
вызываемой программных единицах. 

В вызывающей программной единице (ею может быть, как Вы знае- 
те из порции 1, как главная программа, так и любая другая програм- 
мная единица) такое описание типа внешней функции должно быть 
задано, как и в случае операторной функции, оператором специфи- 
кации типа с помощью соответствующего спецификатора. Например, 


КЕАГ, І, М, КОМ 


В вызываемой процедуре внешней функции описание типа осущест- 
вляется посредством задания перед служебным словом ЕЧМСТІОМ№ 


соответствующего спецификатора. 
| Примеры задания типа внешних функций 


Е Формаль- 
ны т Тип функции ные Место и способ задания типа 
параметры 
АН вещественный Х, У | Может быть задан неявно 

ЦЕ АТУ целый Х, У |В вызывающей программной единице опе- 

ратором ПМТЕСЕК АН и в вызываемой 

программной единице посредством опера- 

тора ПМТЕСЕВ ЕОМСТІОМ АН (Х, У) 
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Продолжение таблицы 


> Формаль- 
Идентифи е 


катор Тип функции 
параметры 
Е 5 4ЧИ НЕНАД СЪГЛАСИЕ ЕА НЕ 3 

АН комплексный Х, У |В вызывающей программной единице по- 
средством оператора СОМРІЕХ АН и в 
вызываемой программной единице посред- 
ством оператора СОМРГЕХ ЕОМСТІОМ 
АН (Х, У) 

АН логический Х, Ү |В вызывающей программной единице опе- 
ратором ГОСІСАТГ АН и в вызываемой 
программной единице оператором 
ТОСІСАІ ЕОМСТІОМ АН (Х, У) | 

[НО комплексный Х, У |В вызывающей программной единице опе- 
ратором СОМРІЕХ ІНО и ввызываемой 
программной единице оператором 
СОМРІЕХ ЕОМСТІОМ ІНО (Хх, У) 

ІНО целый Х, У | Может быть задан неявно 


Место и способ задания типа 


Задание. 1. Какие типы функций допустимы в языке 
ФОРТРАН? | 

2. Как задается тип операторной функции? 

З. Как может быть задан неявно тип внешней функции? 

4. Допустимо ли описание типа функции А следующим образом: 


ЕОМСТІОМ А(Х) | 
ГОСІСАІ, А 


Порция 106 
Встроенные функции 


Большинство реализаций ФОРТРАНа предусматривает несколько 
десятков встроенных функций, с помощью которых могут быть вы- . 
числены синусы, логарифмы, абсолютные значения и пр. От описания 
процедуры вычисления встроенных функций составитель программы 
на ФОРТРАНе полностью освобожден, и вместе с тем встроенные 
функции могут быть. использованы в любых программных единицах: 
в главной программе, внешних функциях и подпрограммах. 

На рис. 29 схематически показан принцип использования встроен- 
ных функций. | 

Каждый программист должен иметь полный список функций, пре- 
дусмотренных реализацией языка на данной ЭВМ в качестве встроен- 
ных, вместе с подробными к ним пояснениями, такими как указание 
точности вычисления значений функций, формы представления аргу- 
ментов, единицы измерения (например, необходимо выражать аргумент 
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синуса в радианах) и т. д. В табл. 23 на стр. 280 приведен список 
встроенных функций, предусмотренных стандартом языка ФОРТРАН. 

За каждой из встроенных функций закреплен. идентификатор, 
но это не запрещает его использование в некоторой программной еди- 
нице в других целях, например, для обозначения некоторой перемен- 
ной. Однако в последнем случае необходимо иметь в виду следующее: 


Программа на ФОРТРАН Радочая программа 
ЗУВКОИТТМЕ АЕРНА (К ,5,1) 


ИВВОИТМЕ ДЕРНА(В,$ ,Т) 


ГИ ЗК К ә өле 00 оо е о-о: е өө. 0 


Нл ОАК АЛ, е оо ооо ооо ооо ооо ово, | 
еҷє еее, 2 о в е - = 
(2),К(7 ФУНКЦИЯ АМА (В (1), ‚В,К(2 7) ,к(7),к(10)) 

о е ө 9 АМІМ№! = 

В=АМІМ(К(1) ),к(3))- Е ЕО Ор етене е е6 
|| Х=лмтмиСе (4) „ВК (2),8(7),В (10) )#В/Т 
х ооооооооосоооооеоеоевә 
х функция АМІМІ(К(1), К(2),К(3)) • + • • 
= АМІМ = | 
5 ооо ооооофо вос фоо с свое 
< 
$1 | в=АмИи (6(1) 8 (2),В (3) )-®(4)*7.0 


ө © ооосооооооеоеоео о ее 
оооооосоооооееооеоее 
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Рис. 29 


Если идентификатор некоторой встроенной функции в данной про- 
граммной единице используется для обозначения именно этой функ- 
ции, то он в этой программной единице не может быть использован 
ни в каких других целях и нет необходимости в его специальном опи- 
сании (в операторе спецификации). Исключение составляет возмож- 
ное использование этого идентификатора в качестве наименования 
общего блока данных в операторах СОММОМ (об этом будет идти 
речь далее). 

Если идентификатор встроенной функции мы хотим использовать 
в некоторой программной единице для обозначения другого объекта, 
то это может быть сделано только для переменной того типа, который 
приписан этому идентификатору в табл. 23 (и, как уже было сказано, 
в данной программной единице соответствующая встроенная функция 
становится недоступной). 
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Назовем еще два дополнительных требования, которым должны 
удовлетворять идентификаторы встроенных функций (в том случае, 
когда они не используются для обозначения некоторых других объек- 
тов программы): 

1) Идентификатор встроенной функции не может встречаться в 
операторе ЕХТЕК МАТ. (0б этом операторе Вы узнаете в дальнейшем). 

2) Идентификатор встроенной функции всегда предшествует непо- 
средственно заключенному в скобки списку фактических параметров 
(т. е. встречается только в конструкции, представляющей собой ука- 
затель функции). 

Обращение к встроенной функции, как и ко всякой другой, осу- 
ществляется посредством употребления ее указателя в качестве пер- 
вичного в арифметическом или логическом выражении. При этом в ка- 
честве фактических параметров могут быть использованы любые вы- 
ражения, тип, количество и порядок которых определяются таблицей 
23. Заметим, что встроенные функции АМОР), МОР, $1@М, 1$1АМ, 
РТОМ не определены, если их второй аргумент равен нулю. 
Пример обращения к встроенной функции 


АВ$ 
Е(В—АВЗ($Т—1.))12, 1,3 


Задание. Какие из приведенных ниже конструкций языка 
являются допустимыми записями операторов присвоения? 
1. А = АВ$--АВ$(Х- У) 
А = АПМТ-1 
А = МАХО-| 1.2 
А = АМТ-РАВ$(Х-- У) 
. А = НОАТ(КЮ-1 
А = АМОР(С)--2.1 
А = ІЕІХ(С)--2 


ОКУДУМ С. 


Порция 107 
Операторные функции 


Часто случается, что в программе необходимо многократно вы- 
полнять вычисления по одной и той же формуле, заданной арифмети- 
ческим или логическим выражением, но над различными аргументами 
или выражениями (или над теми же самыми выражениями, содержа- 
щими переменные, которые могли изменить свои значения). 

Предположим, например, что в программе имеется последователь- 
ность операторов: 


ВА ЕВА -Ск94-.5- р 
2=(Х2—Х1) (ҮҮ) (29-21) Е 
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$= т не 


Е (ТУ (П) (П) Р(Х Х(Ј) 94107100) 
Г + МА№(Ј)»2— Р) 
Все эти операторы содержат выражения вида 


АВО1**2-- АКО2**2-- АКа3**2— Е, 


хотя операции производятся в них над разными переменными или вы- 
ражениями, за исключением переменной Е, используемой в каждом 
из НИХ. | 

Если одно и то же арифметическое или логическое выражение или 
сходные выражения, как это имело место в нашем примере, встречают- 
ся в одной и той же программной единице несколько раз, то его можно 
определить в виде особого оператора, который в ФОРТРАНе носит 
название оператора-функции, или операторной функции. Такое опре- 
деление имеет вид равенства, напоминающего оператор присвоения 
(откуда и происходит название оператора). Формат опораторноя функ- 
ции следующий: 

У (@) == 


Здесь У — идентификатор операторной функции; 
а — список формальных параметров данной функции; 
е — арифметическое или логическое выражение. 

Ограничений на число формальных параметров в операторной функ- 
ции не накладывается. Однако длина операторной функции не должна 
превышать длины оператора, допустимой в ФОРТРАНе (66 х 20 = 
= 1320 символов). 

Операторная функция может быть использована только в той про- 
граммной единице, в которой дано ее определение, т. е. в которой 
приведен данный оператор-функция. 

Идентификаторы операторных функций выбираются составителем 
программы по его усмотрению и должны быть отличными от иденти- 
фикаторов встроенных функций, если последние используются в 
данной программной единице (о чем была речь выше), а также исполь- 
зуемых в ней идентификаторов других объектов (кроме, быть может, 
идентификаторов, используемых для обозначения общих блоков па- 
мяти, о которых речь будет далее). 

Идентификатор операторной функции должен быть описан в дан- 
ной программной единице явно или неявно (в последнем случае, т. е. 
при неявном задании типа, напоминаем, что это допустимо только для 
целого и вещественного типов), и его тип должен быть согласован 
с типом выражения, составляющего его правую часть. Другими сло- 
вами, идентификатор операторной функции может быть целого, ве- 
щественного типа или типа повышенной точности, если указанное 
выражение является выражением арифметического типа, отличного 
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от комплексного; он может быть комплексного или логического типа, 
если это выражение комплексного или логического типа, соответст- 
венно. 

Формальными параметрами, число которых для каждой функции 
фиксируется (и, как и для всех прочих классов функции, не может 
быть равным нулю), являются различные между собой идентификато- 
ры; они перечисляются в операторе-функции в скобках после ее иден- 
тификатора слева от знака равенства и отделяются друг от друга 
запятыми, как это видно из формата оператора. Идентификаторы фор- 
мальных параметров выбираются произвольно, но должны быть раз- 
личными и по типу должны соответствовать способу их использования 
в выражении, составляющем правую часть оператора-функции. 

Так, для сокрашения записи приведенных выше операторов можно 
определить функцию 015, вводя в программу оператор 


015(Х,У,7)= Х=2-- Уж 72 —Е 


Заметим, что так как переменная Е неизменно входит во все выраже- 
ния указанного вида, включать ее в число формальных параметров нет 
никакой необходимости. 

Фактическими параметрами, в отличие от формальных, могут быть 
не только идентификаторы, но и переменные с индексами, а также вы- 
ражения соответствующего типа. (При этом, в отличие от формаль- 
ных параметров, фактические могут быть и одинаковыми). · 

При наличии в программной единице операторной функции 0]$ 
рассмотренные выше операторы могут быть переписаны в виде: | 


В = 015(А,В,С)-+.5 
$ = ЅОВТ (018 (АТРНА, ВЕТА, $КАР)) 
У = 015(Х (1, Ү(І),\(1))/ЮІЅ(ХХС(Ј), ООС), МАИ) 


При выполнении этих операторов с идентификатором функции 
215, как с идентификатором любой переменной, связывается значение 
(в данном примере числовое), получаемое в результате подстановки 
фактических параметров в позиции формальных и вычисления значе- 
ния выражения, стоящего в правой части данной операторной функ- 
ЦИИ. | | 
Операторы, в записи которых встречается указатель функции (т. е. 
идентификатор функции с последующими за ним фактическими пара- 
метрами, заключенными в круглые скобки), называются вызываю- 
ЩИМИ. 

Список фактических параметров в вызывающем операторе должен 
быть согласован со списком формальных параметров, заданным в 
определении функции, в том смысле, что переменные должны быть 
в нем указаны в том же количестве, в том же порядке и должны соот- 
ветствовать им по типу. Так, при использовании неявного определе- 
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ния типа переменных в рассматриваемом примере запись операто- 
ра вида 


РЕЗОЕТ = рі19(1,Е,0,0(1))-+9*р(9) 


нёлопустима, поскольку фактические параметры здесь не согласова- 
ны ни по количеству, ни по типу (1 — переменная целого типа) с опре- 
делением функции 01$(Х,У, 2). На рис. 30 схематически показано 
взаимодействие операторной 
функции с вызывающими. ее 
операторами. | 

Хотя определения опе- 
раторных функций имеют 
вид операторов присвоения, 
они, тем не менее, относятся 
к невыполняемым, поскольку 
эти операторы задают лишь 
форму вычислительной про- 
цедуры (алгоритм), но не 
содержат информации об ар- 
гументах, к которым должна 
быть применена данная про- 
цедура. Эта информация по- 
ступает в момент обращения 
У к функции через ее указа- 

Рис. 30 тель посредством фактиче- 

ских параметров. Указатель 

функции при этом является не только носителем исходной инфор- 

мации, необходимой для вычисления значения данной функции, но 
и носителем результата этого вычисления. 

Некоторые особенности оператора, определяющего операторную 
функцию, состоят в следующем: 

1. Этому оператору не может быть передано управление. 

2. Формальные параметры в списке — это различные между собой 
идентификаторы (они не могут иметь индексов, а также не могут быть 
выражениями, содержащими знаки операций или константы). 

3. Правая часть оператора может содержать помимо формальных 
параметров нетекстовые константы, переменные простые или с индек- 
сами, указатели встроенных и внешних функций. 

4. Правая часть оператора может содержать указатели других 
операторных функций, однако только таких, которые находятся в 
записи той же программной единицы и предшествуют в ней данному 
оператору-функции. 1 

5. Идентификаторы формальных параметров (но не идентифика- 
тор самой операторной функции!) могут быть использованы для обоз- 
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начения некоторых других объектов программы тех же типов (в том 
числе объектов данной программной единицы). 

6. Вызов операторной функции допустим только операторами, 
содержащимися с ней в одной и той же программной единице. Резуль- 
татом вызова операторной функции (посредством ее указателя) являет- 
ся передача вычисленного при заданных значениях фактических 
параметров значения ее правой части и присвоение его этому указате- 
лю. Таким образом, указатель операторной функции может быть 
использован в данной программной единице в любой позиции, допусти- 
мой его типу, в частности, может быть использован в качестве факти- 
ческого параметра некоторой встроенной функции или пропедуры- 
функции. Например, допустима запись: ЕЕ 


ІЕ(51Ҹ(рІ5(8,Т,5)))3,2,1 
3 А=С*ВХ +-$13(рІ8(С,В,В)) 


7. Тип возвращаемого значения может определяться неявно, если 
он целый или вещественный; для всех других типов возвращаемых 
значений (логический, повышенной точности, комплексный), а также 
в случае, когда первая буква идентификатора не соответствует типу 
значения целого или вещественного, идентификатор функции должен 
быть описан явно (с помощью оператора спецификации) в данной 
программной единице. | 

8. Операторные функции могут быть заданы в любой программной 
единипе; при этом они должны быть в ней расположены ранее всех 
выполняемых операторов и следовать за операторами спецификаций 
при их наличии. 

Пример использования операторной функ- 
ции. 

Применение метода Рунгё-Кутта для решения дифференциального 
уравнения вида 


при заданном начальном условии у (х) = у, сводится к последова- 
тельному вычислению цепочки равенств 


ха = х, В 
к=. Е (х, 0) 


й Е 
=. (ми 
Й в, 
=. Ех, А, рога) 
к. =. Е (х; В, и, + 8) 
1 | 
ун = и ЗЕ (8 А 2%, 4 285 - №, #0. Пее 
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где й — шаг интегрирования. Пусть требуется проинтегрировать диф- 
оноо уравнение 


=. = х2 - 21? 4 Зе зтх + 5 

на интервале [0, 2] и выдать на печать значение функции в каждой 
двадцатой точке. В качестве шага интегрирования взять й = 0,005, 
в качестве начальных условий и (0) = 1. 

Для сокращения записи программы на ФОРТРАНе воспользуемся 
идентификаторами, близкими по написанию к общепринятым обозна- 
чениям и соответствующими неявному способу задания типа. 

Определив по длине интервала и шагу интегрирования число точек, 


выдаваемых на печать й = == 20, мы можем написать следую- 


0,005.20 
щую программу, в которой после каждого завершения внутреннего 
цикла выводится на печать строка, содержащая: номер строки, зна- 
чение Х и значение Ү. Для упрощения начальные значения в про- 
грамме мы задаем с помощью оператора РАТА. 


Е(О,У) =10*24-2.«У2--3.*ЕХР(У)*51Ҹ(0)--5.0 
РАТА Х,У,Н .№О., 1.,0.005,20/ 


РО 2 м 
РО 1 К=1,20 
Х=х-Н 


ЕК1=Н»Е(Х ,У) | 
ЕКЭ=Н»Е(Х-+-Н/. ЕК.) 
ЕКЗ=Н»:Е(Х--Н/.,Ү+ЕК2/°.) 
ЕК4—=Н»Е(Х--Н,У-+-ЕКЗ). 
у=У-(ЕК1--2..ЕК2--2.-ЕКЗ-ЕЕК4)/6 
СОМТІМОЕ 

МР1ТЕ (1,3)1,Х,Ү 

РОВ МАТ (2Х,13,5Х,Е10.4,5Х,Е10.4) 
СОМТІМОЕ 

ЗТОР 

ЕМО 


= 


м со? 


В приведенной программе нами введена операторная функция (пер- 
вый оператор программы), заменяя которую мы можем реализовать 
интегрирование любого другого уравнения данного вида, правая часть 
которого может быть задана в виде одного выражения на языке 
ФОРТРАН. Заменяя при необходимости список значений в операторе 
РАТА, мы можем изменить начальные данные, шаг интегрирования и 
число точек, выдаваемых на печать. 

Заметим, что оба оператора СОМТІМОЕ могут быть без ущерба 
опущены. При этом меткой 1 должен быть помечен оператор, пред- 
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шествующий оператору СОМТІМЧСЕ с этой меткой, а метка 2 должна 
быть присвоена оператору МЕЮТЕ. 

Задание. 1. Определите операторную функцию, с помощью 
которой можно было бы вычислить: 


ОБ (А) = 2 +|А|- И 55 
затем используйте эту функцию, чтобы вычислить: 


ВІ 0.5В + [В]. УВ? 2,5. 


В: —3В _ 
2 — = . 3 
Ро — С? — 45 __ 0,55 — |51. И $8 - 2,5 


жарар кт 125 . 
161: УС +25 Г 


2. Введите операторную функцию для вычисления выражения 
4а — (у- а?) · {вас помощью 513 и СОЅ. Введенной функции присвой- 
те идентификатор ОМЕ. 


Порция 108 
Операторные функции (продолжение) 


Пример. | 
Пусть функция Р определяется как сложная функция от нарамет- 
ров С и Т посредством промежуточных аргументов Х, У и 7 равен- 
ствами: 
Х(СТ)=с-т“ УТ) = т 
С(Х,У)=Х2*У*--СО$(Х2-- Ү?)--1 
Р(С,Т)=5-72(Х(С,Т), У(С,Т))-+Х(С,Т) У УСТ) 


Требуется составить программу вычисления значений этой функции 
для всевозможных сочетаний рядов значений параметров С и Т, пред- 
ставленных в виде массивов (соответственно размеров 12 и 8), которые 
должны быть введены с устройства с номером 2. Результатом выпол- 
нения программы должна быть таблица значений функции Р, состоя- 
щая из четырех колонок: 

1. Номер строки 2. Значение С 3. Значение Т 4. Значение Р. 
В начале таблицы должна быть напечатана строка, представляющая 
собой заголовок выдаваемой таблицы вида: 


НОМЕР ЗНАЧЕНИЕ С ЗНАЧЕНИЕ Т ЗНАЧЕНИЕ Р 


_ Полученная таблица должна быть выдана на устройство с номе- 
ром 1. 
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Помимо вводимых наборов данных значения функции должны быть 
вычислены еще для двух пар значений параметров С и Т: 


С 16 
7 — 2.41 
— 2.4] 1.7 


и помещены в ту же таблицу после всех остальных. 
Необходимая программа может быть представлена в виде: 


ЮЕАЁ С(12),Т(8) 
Х(С,Т)=С-+- Т2 
Ү(С,Т)=Сә2—Т 
(Х,У) = Хз Үж+2--СО5(Х»2-4-Ү 2)+4-1.0 
Р(С,Т)=5.+-4(Х(С,Т), Ү(С,Т))-+-Х(С,Т)«50КТ(Ү(С,Т)) 
\ҮРВІТЕ (1,4) 
4 РОВМАТ (5Х,5ННОМЕР,5Х 10НЗНАЧЕНИЕ, С,9Х 10Н 
1 ЗНАЧЕНИЕ, ,Т,5Х10НЗНАЧЕНИЕ, Р) 
ВЕАР (2,2)С,Т 
2 ЕОВМАТ (6Е12.2) 
К=0 


) 
ОКМАТ (6Х,І3,3(3Х,Е12.6)) 
1 


Р1=Р(А,В) | 
МУР ТТЕ (1,5) К,А,В,Р1 
К=кК-1 

А0141 

В= 17 

р1—р(А,В) . 
Ү/РІТЕ (1,5)К,А,В,РІ 
ЅТОР 

ЕМ” 


Обратите внимание на то, что размеры массивов С и Т заданы в 
этой программной единице в операторе типа. | 

Задание. 1. Какую роль в этой программе играет перемен- 
ная К? Чему равно последнее присвоенное ей значение? 

2. Учитывая, что в качестве фактических параметров могут быть 
использованы константы, упростите часть приведенной в данной пор- 
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ции программы, предназначенную для формирования последних двух 

строк таблицы. | 
З. Функция № задана как сложная функция от переменных хи у 

посредством промежуточных функций и, о и Е равенствами: 


и (х, у) = х — у 
о (х, у) = х? — ѕіп у 
Е (и, о) = её + о + 3 


№ (х, у) = п (Е (и (х, у), о (х, 0))) ЕУи (х, у) о (х, 0) 


Составьте программу для вычисления таблицы значений функции 
\У (х, у) для всех пар значений хи у, заданных соотношениями: 


х= 0,2 +01. К К =, И 
0 = — 0,28 +1 Г =1, 2, 3, 4 

. | | 
у= 6140,2 :М Ма 


Таблицу значений выдать на устройство с номером 6. ' 


Порция 109 
Оператор СОММОМ 


В языке ФОРТРАН имеются средства, позволяющие использовать 
одну и ту же область памяти для хранения данных, общих для двух 
или более программных единиц выполняемой программы — общий 
блок, или общую область памяти. Для определения общих областей 
н указания идентификаторов переменных и массивов, располагаемых 
в этих областях, используется оператор СОММОМ, имеющий ёле- 
дующий формат: 


СОММОМ/х/а/х,/6 ... (х, [о 


Здесь а, 6, ..., ш — непустые списки, элементами которых могут 
быть идентификаторы простых переменных, идентификаторы масси- 
вов и описатели массивов, размеры которых могут быть заданы только 
константами; 

х, 1 =1, 2, ..., п) — идентификаторы, используемые в качестве 
наименований общих блоков, или пусто. В последнем случае принято 
считать, что речь идет об общем непомеченном блоке; если х, — не пус- 
то, соответствующий блок памяти называется помеченным (имено- 
ваным). Первые две косые черты в записи непомеченного общего блока 
необязательны. 
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Например,. записи. 
| _ СОММОМИА, В, С 


СОММОМ А, В, С 


эквивалентны. | 

Наименования общих блоков подчиняются общим правилам запи- 
си идентификаторов, т. е. могут содержать от одной до шести буквен- 
но-цифровых символов и должны начинаться с буквы. (Напоминаем, 
что использование русских букв, отличных по написанию от латин- 
ских, в записи идентификаторов не допустимо). я 

Идентификатор, именующий общий блок, может быть использован 
в той же программной единице для идентификации массива, простой 
переменной или операторной функции. 

Переменные и массивы, описанные как объекты некоторого общего 
блока в одной программной единице, будут занимать соответствующие 
голя в той же области памяти, что и переменные и массивы, описан- 
ные как объекты общего блока с тем же наименованием в другой про- 
граммной единице выполняемой программы. При этом, если несколь- 
ко программных единиц используют одну и ту же общую область па- 
мяти, то каждое поле памяти с одним и тем же порядковым номером 
в области определяет одно и то же значение для всех программных 
единиц, несмотря на то, что оно может иметь различные обозначения 
в разных программных единицах. | 

Пример использования блоков СОММОМ: 

_ 1-я программная единица СОММОМ /Р/АІ, А2, АЗ 

2-я программная единица СОММОМ /Р/НР, РН, РТ 

3-я программная единица СОММОМ /Р/ТО, ТЕ, ТА 

Приведенные операторы СОММОМ, находящиеся в разных про- 
граммных единицах одной выполняемой программы, обозначают сле- 
дующее: для всех трех программных единиц в процессе сборки про- 
граммы будет отведен общий блок Р, в который будут помещаться 
значения трех переменных, причем к первому полю общего блока мож- 
но обращаться в каждой из программных единиц соответственно по- 
средством идентификаторов А1, НР и ТО, так как вычисляемые в раз- 
ных программных единицах значения переменных АІ, НР и ТО будут 
помещаться в одну и ту же единицу памяти. Это же относится к пере- 
менным 42, РН, ТЕ и АЗ, РТ, ТА. При этом не только экономятся 
единицы памяти, но (что более важно!) также устанавливается связь 
между программными единицами: определяемые значения перемен- 
ных в одной из этих программных единиц становятся доступными для 
использования непосредственно в другой, если они отнесены к обще- 
му для них блоку памяти. 

В общем блоке переменные и массивы располагаются в порядке, 
определяемом последовательностью их написания в операторе 
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СОММОМ. Списки в операторе СОММОМ, относящиеся к общему 
блоку с одним и тем же наименованием, рассматриваются как один 
список. Например, оператор 


СОММОМ /А/К, М, І/В/С, Н, Р/А/КА, МВ, КВ 


эквивалентен оператору 
СОММОМ /А/К, М, І, КА, МВ, КВ/В/С, Н, Р 


Это замечание относится также к общему непомеченному блоку. 

Если некоторая программная единица содержит несколько опера- 
торов СОММОМ, то все они, начиная с первого, рассматриваются как 
один оператор СОММОМ, список элементов которого составлен из 
списков всех этих операторов и записан в порядке их появления в 
программе, т. е. каждый очередной оператор СОММОМ в данной про- 
граммной единице считается продолжением предыдущего. 

Если идентификатор массива или описатель массива появляется 
в списке оператора СОММОМ, то все элементы этого массива, начиная 
с первого элемента, помещаются в соответствующий общий блок. 
Обращаем Ваше внимание на то, что в списки операторов СОММОМ 
нельзя помещать переменные с индексами (всякое данное, записан- 
ное в скобках после идентификатора в списке оператора СОММОМ 
воспринимается как описание размеров массива); если какой-либо 
элемент массива требуется поместить в общую область, то в нее дол- 
жен быть помещен весь этот массив. Такое требование связано с при- 
нятой в ЭВМ концепцией размещения массивов и элементов из общей 
области в последовательности следующих друг за другом единиц 
памяти. Следующий пример иллюстрирует порядок размещения объек- 
тов из общих блоков в памяти машины. Пусть в первой программной 
единине имеется оператор: . 


СОММОМ /В/Р, Т, Н (3) 
(Р и Т — простые переменные). 


Память в помеченном общем блоке В будет распределена следую- 
щим образом: 


Элементы | 

общего бло- Р 1 Н (1) Н (2) Н (3) 
ка 

Единицы па- : | д а ? 
вае Я 14-1 1-2 1-3 И. 


Если теперь во второй программной единице будет задан оператор 
СОММОМ /В/А(3), В, С. | 


157 


то значением переменной А (1) будет содержимое і-й единицы памяти, 
значением А (2) — содержимое { -- 1-й и значением А (3) — содер- 
жимое і +4- 2-й единицы памяти; содержимое і + 3-й и Її -- 4-й единиц 
соответственно будут отведены под переменные В и С. 

Если в списке оператора СОММОМ указан только идентификатор 
массива, то размеры этого массива должны быть описаны в операторе 
О МЕМЗОМ или операторах типа в данной программной единице. 

Задание. Напишите оператор для размещения в общем блоке 
памяти двумерных массивов С и Т, содержащих по 4 столбца и З строки. 
Дайте этому блоку наименование /РА/. | 


Порция 110 
Соответствие общих блоков 


Размер общего блока — это сумма единиц памяти, необходимой 
для размещения объектов, указанных в операторах СОММОМ и 
ЕОШУАГЕМСЕ (этот оператор будет рассмотрен далее). Размеры 
помеченных общих блоков с одним и тем же наименованием в разных 
программных единицах, которые включаются в одну выполняемую 
единицу, должны быть одинаковыми. Размеры непомеченного общего 
блока в различных программных единицах выполняемой программы 
могут быть различными, однако эти размеры во внешних процедурах 
не должны превосходить размер непомеченного общего блока в глав- 
ной программе. | 

Пример. | | 

Предположим, что выполняемая программа состоит из четырех 
программных единиц, которые содержат следующие операторы 
СОММОМ: 

1-я программная единица: СОММОМ /Т/К,М,№//В$, ВТ, КО/К/А,С 

2-я программная единица: СОММОМ //А2,АЗ/К/ЗК,ТК 

3-я программная единица: СОММОМ /Т/І,Ј,Ј1//АК,ВК,СК,ЮК 

4-я программная единица: СОММОМ /Т/11,12,13/К/Р,О 

Ниже показаны порядок и соответствие элементов в общих блоках: 


Общий блок т Общий блок К 
1-я прог. ед. | К | М К 1-я прог. ед. А С 
2-я прог. ед. | | | 2-я прог. ед. | ЗК | ТВ 
3-я прог. ед. | | | Ј | Л 3-я прог. ед. | | 
4-я прог. ыы | П | [о | ІЗ 4-я прог. ед; | р | О 
Единицы памяти | то Единицы памяти ў | 1-1 
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Непомеченный общий блок 


1-я прог. ед. К ВТ КО | | 
2-я прог. ед. | А2 | АЗ | | 
3-я прог. ед. | АВ | вв | ск | рк 
4-я прог. ед. | | | | 

| +2 | 64-3 


Единицы памяти Е | е У+- 1 
| 


Значения переменных повышенной точности и комплексных пере- 
менных считаются расположенными в двух последовательных единицах 
памяти. 

Пример сопоставления простых и комп- 
лексных переменных в общем блоке: 

1-я программная единица: СОММОМ /С/А,В, 

2-я программная единица: СОМРІЕХ В,$,Т 

СОММОМ /С/В,5,Т,0 


Соответствие элементов в блоке С: 


О 
5, 
10 
83; 
С 


1-я прог. ед. А | В ИНИ ғ | а 
2-я прог. ед. а К | $ | Т | О 


Единицы памяти . |. т нитями 


В этом примере значение переменной А является значением ве- 
щественной части комплексного числа, обозначенного идентификато- 
ром К, а значение переменной В — значением мнимой части этого 
числа. | 

В списках оператора СОММОМ запрещается употреблять формаль- 
ные параметры функций и подпрограмм. | 

Разберем еще один пример. 

Пусть четыре программные единицы используют общий блок ВІ, 
при этом первая программная единица использует первые десять еди- 
ниц этого блока; вторая — первые три и последние три из указанных 
десяти; третья — со второй по восьмую, а четвертая — с пятой по 
двенадцатую. В таком случае: 

во-первых, общий блок будет содержать 12 единиц памяти; 

во-вторых, в каждую из названных четырех программных единиң 
должен быть включен оператор СОММОМ, содержащий (помимо наи- 
менования блока ВІ) двенадцать единиц памяти (на что особо 
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обращаем Ваше внимание!) независимо от того, что в каждой данной 
программной единице используются лишь те или иные из них; 

в-третьих, необходимые (используемые в каждой данной програм- 
мной единице) объекты должны указываться в соответствующих по- 
зициях в операторе СОММОМ, а в неиспользуемые позиции должны 
быть поставлены некоторые «фиктивные» идентификаторы, т. е. иден- 
тификаторы, не используемые данной программной единицей. 

Обозначим в приведенном примере с четырьмя программными еди- 
ницами идентификаторы используемых в них объектов через 
ЛО АО: ВЫ Ва 286; С.С; ЕЕ. Е8. Фик- 
тивные переменные обозначим через ЕІ, Е2, ... 

Тогда в каждой из четырех программных единиц в нашем примере 
должны быть указаны, соответственно, следующие операторы: 

1-я программная единица: СОММОМ /В1/А1,А2,АЗ,А4,А5,Аб,А7, 
А8,А9,А10,Е1,Е2 

2-я программная единица: СОММОМ /ВИВТ,В2,ВЗ,Е1,Е2,ЕЗ,Е4, 
84,В5,В6,Е5,Е6 

3-я программная единица: СОММОМ /ІВ1/ЕІ,СІ,С2,С3,С4,С5,С6,С7, 
Р2,ЕЗ,Е4,Е5 

4-я программная единица: СОММОМ ІВ1/ЕІЕ2,ЕЗ,Е4,Е1,Е2,ЕЗ,Е4, 
Е5,Е6,Е7;Е8 

Задание. 1. Как определяется размер общего блока? | нА 

2. Могут ли одинаково помеченные общие блоки в разных единицах 
одной выполняемой программы иметь разные размеры? 


Порция 111: 
Помеченные и непомеченные общие блоки 


Давайте рассмотрим вопрос о том, чем отличаются помеченные 
общие блоки от непомеченных и когда возникает необходимость в ИС- 
пользовании помеченных общих блоков. 

Как отмечалось выше, размеры помеченных общих блоков во всех 
программных единицах, где используются эти блоки, должны быть 
одинаковыми. Размеры непомеченного общего блока в разных про- 
граммных единицах выполняемой программы могут быть разными. 

Кроме того, переменным из помеченного общего блока можно при- 
сваивать начальные значения оператором РАТА в сопрограмме дан- 
ных (см. порцию 132). Переменным из непомеченного общего блока 
присваивать начальные значения оператором РАТА нельзя. Эти пе- 
ременные могут быть определены только при указании их идентифи- 
каторов в операторе ввода, при использовании их в левой части опера- 
тора присвоения, в качестве управляющей переменной в операторе ро 
или в качестве фактического параметра процедуры. г. 

_ На первый взгляд может показаться, что проще было бы опреде- 
лить в выполняемой программе один общий блок и поместить в, него 
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все переменные и массивы, значения которых мы хотим использовать 
в разных программных единицах. 

Но посмотрим, во что выливается эта кажущаяся простота. Пред- 
положим, что некоторая выполняемая программа состоит из главной 
программы, трех подпрограмм и двух внешних функций. Все указан- 
ные программные единицы используют некоторые переменные из об- 
щего блока, причем: 

главная программа и подпрограмма Рі используют переменные 
А, В, 

главная программа и подпрограмма Р2 — переменные Е, Е, С, Н, 

главная программа, внешняя функция Е] и Пр РЗ — пе- 
ременные: 1, :Ј, К, Г, М, М; 

главная программа, подпрограммы РІ и Р2 и внешняя функция 
Е2 — переменные О, Р, О, В, 

подпрограмма Р2 и подпрограмма РЗ — переменные 5, Т, Ц, У, 

подпрограмма РІ и подпрограмма РЗ — переменные №, Х, У, 2. 

То есть полный список переменных в общем блоке был бы таким: 

А, В, С, р, Е; Е а, Юю? Т, Ј, К, В; М, М, О, Р; С), К; 9, И 
Ом. 

Поскольку отдельное значение в общем блоке памяти определяется 
порядковым номером поля, который соответствует порядковому номе- 
ру идентификатора переменной в списке оператора СОММОМ, нам 
пришлось бы в каждой из программных единиц повторять весь список 
оператора СОММОМ, чтобы нужные нам переменные оказались в со- 
ответствующих позициях. Однако это неудобно, так как длинный спи- 
сок оставляет больше возможностей для ошибок. 

_ Разбив описанный выше непомеченный общий блок на несколько 
помеченных блоков, мы в каждой из программных единиц просто за- 
пишем: 

главная программа: СОММОМ /А/А,В,С,р/В/Е,Е,6,Н/С/І,Ј, К,1,М, 

М№,/0р/О,Р,0,В 

подпрограмма РІ: СОММОМ /А/А,В,С,р/р/О,Р,О,Р/Е/ МХ, Ү,7, 

подпрограмма Р2: СОММОМ /В/Е,Е,а,Н/р/О,Р,О,В/Е/$,Т,0,У, 

подпрограмма РЗ: СОММОМ /Е/М№,Х,Ү,7/Е/5,Т,0,У/СЛ,Ј,К,1,М, 


М, 

внешняя функция Е1: СОММОМ /СЛІ,Ј,К,1І,М,М, 

внешняя функция Е2: СОММОМ /С/І,Ј,К,1,М,М/р/О,Р,о9,В 

Для наглядности мы обозначили переменные в помеченных общих 
блоках, используемых в разных программных единицах, одинаковы- 
ми идентификаторами. При написании реальных программ этого мож- 
но не делать. 

Порядок следования наименований общих блоков в каждом из при- 
веденных операторов СОММОМ (с соответствующими списками) произ- 
вольный. 
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Как видно из приведенного примера, кроме тех преимуществ, о ко- 
торых говорилось выше, использование помеченных общих блоков 
придает компактность записи оператора СОММОМ. 


Порция 112 | 
Оператор Е@ФШУАГЕМСЕ 


Оператор ЕФӦӦІЛУАТЕМСЕ используется для совмещения памяти 
двух или более объектов одной программной единицы (в отличие от 
оператора СОММОМ, посредством которого в одной и той же единице 
памяти размещаются значения объектов из разных программных 
единиц). Формат записи оператора ЕСТЛУАТГЕМСЕ следующий: 


ЕОЧУАТЕКСЕ (#)), (®,), ... , (Е) 


Здесь Ё, — списки, содержащие не менее двух элементов, значения ' 
которых помещаются в одну и ту же единицу памяти. Элементами спис- 
ка могут быть: 

1. Идентификатор простой переменной. 

2. Идентификатор переменной с индексами, причем список ин- 
дексов может содержать только константы и их количество должно 
соответствовать размерности массива, указанной в его описателе, 
или быть равным единице (в последнем случае он рассматривается 
в качестве приведенного индекса). Напоминаем, что любой дву- или 
трехмерный массив может быть преобразован в одномерный массив 
такого же размера согласно функции упорядочения элементов мас- 
сива. Преобразование трехмерного массива в двумерный недопустимо. 
Так как элементы массивов размещаются в памяти упорядоченно, 
то эквивалентность двух элементов разных массивов приводит к сов- 
мещению в памяти остальных элементов этих массивов. 

Пример: — 

РІМЕМЅІОМ Р1(2,2),51(3),Т13,2) 

ЕООТУАГЕМСЕ (С,р,Е),(ТІ(1,1),А,В),(Р1(2),51(1), К) 

В этом примере массив РІ описан как двумерный, а его элемент в опе- 
раторе ЕОІУАГЕМСЕ записан с одним индексом. Это значит, что 


этот индекс является приведенным. Распределение памяти для пере- 
менных К, А, В, С, О, Е и массивов РІ, $1 и ТІ приводится ниже. 


Первый список оператора ЕОСИУАЕЕМСЕ (С, Р, Е) 


С 
переменные и элементы массивов р 
Е. 


единицы памяти Бет Е 1 
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Второй список оператора ЕОШҰҮАГЕМСЕ (ТІ (1, 1), А, В) 


т1 (1, 1т1 0, 1) ТІ (3, И Т1 (1,9) ТІ (, 2) ТІ (3,2) 


переменные и элементы мас- 


сивов А 
В я 
единицы памяти ј 1-1 | 1-2 | +з | 1+4 | 1-5 


Третий список оператора ЕФЧТУАГЕМСЕ (РІ (2), $1 (1), К) 


| рі (10 | РО | рі, 9 | РІ С, 2) 
переменные и элементы 
ео $1 (1) $1 (2) 51 (3) 
| единицы памяти | і | і 1 | 4-2 | 1-3 


Типы объектов одного списка могут быть различными, т. е. до- 
пускается совмещение памяти для объектов, занимающих по две 
единицы памяти (комплексные и повышенной точности), и объектов, 
занимающих по одной единице памяти (целые, вещественные, логи- 
ческие).. Если’ объявляется эквивалентность между объектами, зани- 
мающими одну единицу памяти, и объектами, занимающими две еди- 
ницы памяти, то совмещение выполняется по первой из двух единиц 
памяти. _ 

Пример: 


РООВЕЕ РВЕСІЅІОМ 03), 02 
СОМРГЕХ В 1(4) 

РрІМЕМЅІОМ А(9,4),С(6) 

ЕООІУАТЕМСЕ (А(3),05(1)),(02,С(3),КІ(3)) 


Память для переменных, перечисленных в операторе ЕОЧТУА- 
ЕМСЕ будет распределена следующим образом: 


Первый список оператора ЕФОІМАГЕМСЕ (А (3), Рі (1)) 


А (1, 1А (2, ПА (1, зае, 2)1А (1, зле, 3) а, АС, 4) 


ппсинититиииинниианиь | птичьи моими | истинно чи титьки ирро Д анар аана ии отита 


р (1) О (2) р (3) 
09 


переменные и элементы 
масс ИВОВ . 


единицы памяти | і атаве 
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Второй список оператора ЕС МУАТГЕМСЕ (02, С (3), ВІ (3)) 


о Р И 


переменные и элементы | С | 6:2) | С (3) | С. (4) | С (5) | С (6) 


массивов 

В! (1) | в! 2 | №0) | ВІ (4) 
единицы памяти | 7 АННЕ [уз [9+4 [75 ье т 
а  Йе О АЕ а | 


Если в списке оператора ЕОЛУАТЕМСЕ содержится объект из 
блока СОММОМ, то все объекты этого списка будут расположены в 
этом общем блоке (поскольку при распределении памяти раньше вы- 
деляются поля для общих блоков). | 

Оператор ЕОТУАГЕМСЕ не влияет на распределение памяти 
внутри общего блока, он может привести лишь к его удлинению. 

Такое удлинение допускается лишь в том случае, когда общий блок 
расширяется за пределы последней единицы памяти. Оператор 
ЕФОУАТЕМСЕ не должен расширять общий блок в сторону его 
начала (так как это потребовало бы перераспределения памяти, отво- 
димой под общие блоки). 

Пример: 


РІМЕМЅІОМ $Т(4),Т(6) 
СОММОМ /ВВ/5Т,5В,5\ 
ЕОУАГЕКСЕ (5Т(3),Т$(2)) 


По оператору СОММОМ память в блоке ВЮ будет распределена 
следующим образом: 


Элементы общего 

блока ӘТ (1) | Т (2) | $Т (3) | ЗТ (4) 56 $У 
По ыы ЫСО АНЧО УЬ Ир А 
| Единицы памяти | 1 Е --2 6+ З 6-4-4 Р+ 5 
ИОВА ЛО ВИА ГАНЧА АТА Зе КОГ ИКАД ВЕ ЕА 


Оператор ЕФМУАТЕМСЕ расширяет общую область в сторону 
конца и распределение памяти будет таким: | 


——аадаоиидоиодии 


| (І) | эт (2): $Т (3) 15170) ъК | $У | | 
Элементы общего ча ТАА 
блока 
| Т5 (1) | Т$ (2) _Т$ (3) | Т5 (4) | Т9 о] Т (6) 
Единицы памяти | |. | кът 42| Е+3 | А-4 в 5 Е 6 
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Еще один пример 


РІМЕМ№ЅІОМ $Т(4),Т5(6) 
СОММОМ /ВВ/5Т,5В ‚У 
ЕОШУАГЕКСЕ ($Т(9),Т5(4)) 


Эквивалентность 5Т(2) и Т$(4) требовала бы такого распределе- 
ния памяти: 


ЅТ (1) | ЅТ (9) 


ЅТ (3) | ЅТ (4) 5В ЗУ 


> 


Массив Т5 в общем блоке разместить нельзя, его пришлось бы 
расширить в сторону начала, поэтому подобная эквивалентность не- 
допустима. - 

Оператор ЕФИТУАГЕМСЕ может установить косвенную эквива- 
лентность между объектами программной единицы. Например: 

ЕООТУАГЕМСЕ (®,$,Т),($,У) 

В этом примере переменная У косвенно эквивалентна переменным 
В и Т. 

Объекты, входящие в общий блок, не могут быть объявлены экви- 
валентными между собой, поэтому установление косвенной эквива- 
лентности между переменными общего блока А и р, как это имеет 
место в следующем примере, недопустимо: | 


СОММОМ А,В,С,р 
ЕООІУАТЕМСЕ (Х,Ү,А),(Х,р) 


С использованием оператора Е (ЛУАГЕМСЕ связано еще одно пра- 
вило, заключающееся в том, что в списке оператора ЕОФОТУАГЕМСЕ 
может содержаться не более одной переменной, которая ранее была 
определена как эквивалентная. Причина этого ясна из приведенного 
ниже примера: ) 

ЕСОІЛУАТЕМСЕ (О,Е,Е) 

ЕООЛУАТЕМСЕ (Н,5,Т,) 

ЕФОІЛУАТЕМСЕ (р,Н) 

Первый из перечисленных операторов ставит в соответствие трем пе- 
ременным О, Е и Е одну единицу памяти, скажем, ячейку і. Второй 
оператор помещает в ячейку памяти і + 1 переменные Н, $ и Т. Тре- 
тий же оператор пытается поставить в соответствие переменным Н и р 
одну и ту же единицу памяти. Но это невозможно, поскольку перемен- 
ной Р уже соответствует ячейка 4; а переменной Н — ячейка і - 1. 
Поэтому третий оператор ЕОТПЛУАТЕМСЕ, который содержит две 
переменные, определенные ранее как эквивалентные, недопустим. 


Т5 (1) Т$. @) | Т5 (3) 154 | 150) | 1$ (6) 
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Задание. В каждом из приведенных ниже операторов или груп- 
пе операторов ЕООТУАГЕМСЕ допущена ошибка. Найдите ее. 


а) ЕОУАТЕМСЕ (А,В,С)(С,р) 
б) ЕОГТУАТЕМСЕ (А,В,С), (Р.Р) (А,Б, Б) 
в) СОММОМ /С/В(2,9),А(3,4) 
РІМЕМЅІОМ В (3,2) 
ЕОШУАІЕМСЕ (В(9,1), В (4)), (А(1),С) 


Порция 113 
Внешние функции 


При всей своей очевидной полезности для написания программ опе- 
раторные функции имеют три серьезных ограничения: их определяю- 
щая процедура состоит из одного оператора; с их помощью можно вы- 
числять только одно значение; ими можно пользоваться только в той 
программной единице, в которой они определены. 

Этих ограничений не имеют внешние паща. к рассмотрению 
которых мы переходим. 

По своему действию внешние функции аналогичны операторным. 
Обращение к внешней функции, как и для других классов функций 
(операторных, встроенных), производится с помощью ее указателя 
(определение последнего то же, что и для всех прочих типов функций). 
Указатель любой функции может быть использован в качестве пер- 
вичного выражения в соответствующих выражениях в программе. 

Так же, как и для других классов функций, с указателем внешней 
функции связывается единственное значение, вырабатываемое про- 
педурой ее вычисления при заданных этим указателем значениях 
фактических параметров. Вычисленное значение передается через 
указатель функции в точку вызова данной процедуры-функции. Од- 
нако, в отличие от операторных функций, определяемых внутри соот- 
ветствующих программных единиц и компилируемых вместе с ними, 
внешние функции оформляются в виде отдельных («внешних») про- 
граммных единиц, компилируются независимо от других программных 
единиц и благодаря этому могут быть использованы различными про- 
граммными единицами и в разных выполняемых программах. `_ 

Еще одно важное отличие внешних функций от операторных со- 
стоит в том, что процедура выполнения внешней функции может со- 
стоять из любого необходимого количества операторов ФОРТРАНа. 
Вследствие этого внешняя функция может присваивать значения не- 
которым другим переменным, кроме той, которая определяется ее ука- 
зателем, или даже целым массивам (что может оказаться полезным 
для ускорения вычислений), а также в процессе выполнения опреде- 
ляющей ее процедуры может осуществляться вывод во внешнюю сре- 
ду тех или иных значений переменных или массивов посредством 
выполнения соответствующих операторов вывода. 
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Существенную особенность внешних функций составляет то, что 
преемником результата вырабатываемого ею значения и передавае- . 
мого через указатель в вызываемую точку программы является иден- 
тификатор этой функции; поэтому процедура вычисления функции 
в числе своих операторов должна содержать по меньшей мере один 
оператор, определяющий ее значение, например оператор присвое- 
ния, левая часть которого является ее идентификатором. При этом, 
каковы бы ни были исходные данные, при каждом выполнении процеду- 
ры вычисления внешней функции должно иметь место определение (во?з- 
можно с последующим переопределением) значения ее идентификатора. 

Идентификаторы внешних функций, как мы уже заметили ранее, 
вводятся составителем программы и их выбор подчиняется общим 
правилам. Напомним (см. порцию 15), что тип возвращаемого внешней 
функцией значения может определяться неявно, если он вещественный 
или целый; для всех других типов возвращаемых по указателю зна- 
чений, а также в случае, когда первая буква идентификатора не соот- 
ветствует типу значения целого или вещественного, идентификатор 
функции должен быть описан явно (см. порцию 15). 

Задание. Назовите отличия внешних функций от операторных. 


Порция 114 
Внешние функции (продолжение) 


Программная единица, предназначенная для реализации процеду- 
ры вычисления внешней функции, должна начинаться оператором 
РОМСТЮМ, имеющим следующий формат: 

і ЕОМСТІОМ 5 (7) 
ИЛИ 
ЕОМСТІОМ 5 (у) 
Здесь $ — идентификатор данной функции; 5 
г — список формальных параметров данной функции. Если 
количество параметров больше одного, то параметры в 
списке отделяются друг от друга запятыми; 
і — один из спецификаторов типа: ВЕАІ, ІМТЕСЕВ, 
ГОСТСАГ, РООВІЕ РВКЕСІЅІОМ, СОМРГЕХ. 

В качестве формальных параметров внешних функций допуска- 
ются идентификаторы (различные) переменных, массивов или внешних 
процедур. Тип возвращаемого в вызывающую точку программы зна- 
чения, вырабатываемого внешней функцией, определяется специфи- 
катором, указываемым в операторе ЕОМСТІОМ в случае первого из 
приведенных видов его формата, или определяется по первой букве 
идентификатора данной функции в случае. формата второго вида, что 
возможно лишь для вещественного и целого типов. 

Идентификаторы формальных параметров не могут быть указаны 
в списках операторов ЕФОУАГЕМСЕ, СОММОМ и РАТА в 
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процедуре, определяющей данную функцию. Что касается идентифи- 
каторов внешних функций, то они не могут появляться ни в одном 
из невыполняемых операторов в определяющих их процедурах, за ис- 
ключением операторов ЕОМСТІОМ, где появление этих идентификато- 
ров непосредственно после служебного слова ЕОМСТІОМ является 
обязательным. 

В конце записи вычислительной процедуры, определяющей внеш- 
нюю функцию, проставляется конечная строка ЕМ”. Между первым 
оператором процедуры-функции ЕОМСТІОМ№ и ее конечной строкой 
нроцедура может содержать любые операторы, кроме операторов 
ВГОСК РАТА, Ѕ50ВВООТІМЕ, $ТОР или ЕОМСТІОМ, а также не 
может содержать операторов, которые прямо или косвенно ссылаются 
на определяемую функцию (поскольку рекурсивные обращения к 
‘процедурам в языке ФОРТРАН запрещены). 

Среди всех операторов, размещаемых между первым оператором 
ЕОМСТІОМ и конечной строкой, должен быть по меньшей мере один 
оператор КЕТОКМ (и хотя бы еще один выполняемый оператор, 
определяющий значение идентификатора функции). При этом тре- 
буется, чтобы при любых исходных данных выполнялся в конечном 
счете один из операторов ВЕТОК М, которым и завершается выпол- 
нение процедуры. Присвоенное в процедуре к этому моменту значение 
идентификатора функции является вычисленным значением функции. 

Рассмотрим пример использования внешней функции: 

Пусть в программе имеются операторы: 

ІЕ(А-А— Ү 5:4) 1,2,3 

‚1 КЕУ1=—1 

СО ТО 4 
2 КҚЕҮ1=0 
Со ТО 4 

ЭО КЕХ1=1 

_ 4 ТЕ(В.В—$*Т)5,6,7 

о КЕУ2=— 1 

ОО ТО 8 
6 КЕҮ2=0 
СО ТО ё 
7 КЕҮ2=1 
8 ТЕ(КЕҮІ* КЕУ?)9,10,11 


9 
10 


1] 
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В приведенном участке программы дважды вычисляются выраже- 
ния по одной и той же формуле и выполняются одинаковые присвое- 
ния значений целой переменной в зависимости от знака результата выра- 
жения или при равенстве его нулю. Чтобы не повторять запись одних и 
тех же действий в программе несколько раз, повторяющуюся последо- 
вательность действий можно описать в виде внешней функции: 


ЕОМСТІОМ КЕУ(А,В,С) 
ШАШ 93 


1 КЕУ =—1 
КЕТОКМ 

2 КЕҮ=0 
КЕТОКМ 

3 КЕУ=1| 
КЕТОКМ 
ЕМО 


Используя функцию КЕҮ, первоначальный участок программы 
перепишем в виде одного оператора 


|Е(КЕУ(А,У,7)+ КЕУ(К,$,Т))9,10,11 
9 


10 
1] 


Задание: Проверьте правильность написания следующих опе- 
- раторов: 

а) ЕОМСТІОМ№ АВЗОГУАГ (Х,У,2) 

6) ЕОМСТІОМ РЕАЕ(А,В,М№) 

в) ЕОМСТІОМ ВЕАР(К,1,М) 

г) ЕОМЧСТІОМ ОГАр(р(9),В) 

д) ЕОМСТІОМ ТЕ(А/1,В--С) 


Порция 115 
Внешние функции (продолжение) 


Разберем подробно описание внешней функции комплексного типа 
(обозначим ее идентификатором АМ), определяющей тот элемент дву- 
мерного массива комплексных чисел АК(15,15), модуль которого 
является максимальным. 
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СОМРЕЕХ ЕОМСТІОМ АМ(АК) 
СОМРГЕХ АК, АЕ 

РІМЕМЅІОМ АК(15,15),АЕ(295) 
ЕОІЛУАІЕМСЕ (АК(1, 1), АЕ(1)) 


А=0.0 
М=1 
ро 1 К=1,225 


ІЕ(САВЅ(АЕ(К))—А)1,1;2 
о А-САВЗ(АЕ(К} 


1 СОМТІМОЕ 
АМ=АЕ(М) 
ВЕТОВМ 
ЕМ”р 

В данной процедуре нами посредством оператора ЕФОТУАГЕМСЕ 
определен одномерный комплексный массив ДЕ, имеющий то же число 
членов, которое имеет исходный массив, определяемый формальным 
параметром АК. Это позволило реализовать поиск элемента с макси- 
мальным модулем посредством одинарного (а не двойного) цикличе- 
ского процесса. (Заметим при этом, что реализация одинарного цикли- 
ческого процесса, вообще говоря, экономнее по времени трансляции 
и’ выполнения программы). . 

В области оператора РО для определения модуля элемента комплек- 
сной матрицы АЕ(К) мы использовали указатель основной внешней 
функции САВ (см. табл. 24, стр. 282). 

Задание. 1. Запишите приведенную в этой порции програм- 
мную единицу без оператора ЕФӦІЛУАТЕМ№СЕ. 

2. Составьте описание внешней функции для определения номера 
последнего из максимальных по модулю элементов массива комплекс- 
ных чисел АК (100). 

3. Составьте описание внешней функции для определения мини- 
мального по модулю элемента массива комплексных чисел АК (20). 

4. Составьте описание внешней функции Е для вычисления разнос- 
ти между величиной максимального и минимального из модулей эле- 
ментов матрицы В(20,30), состоящей из вещественных элементов. 

5. Какие изменения необходимо внести в программу, составлен- 
ную в задании 4, для решения той же задачи в случае, когда элементы 
матрицы являются комплексными числами? | 


Порция 116 
Связь внешней функции с вызывающей программной единицей 


После того как мы рассмотрели правила написания внешних 
функций, необходимо выяснить, каким образом в вызывающей про- 
грамме производится к ним обращение. 
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Типичным примером такого обращения может служить. оператор 
присвоения в вызывающей программной единице, обращающейся к 
вычислению функции КЕУ, рассмотренной в порции 114. 

15=[(3)--КЕҮ(Х, Ү(5),2(1,1)) 
Таким образом, для того чтобы в вызывающей процедуре использо- 
вать процедуру вычисления внешней функции, необходимо только на- 
писать ее идентификатор с последующими за ним в скобках фактиче- 
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Рис. 31 


скими параметрами там, где требуется получить ее значение, т. е. 
записать ее указатель. | 

Во избежание неопределенности идентификаторы для различных 
внешних функций должны быть выбраны различными. 

Когда при выполнении оператора встречается указатель какой- 
либо внешней функции, производится передача управления к началу 
процедуры вычисления данной функции (т. е. к соответствующему 
оператору ЕОМСТІОМ). После завершения процедуры, что соответст- 
вует выполнению в ней оператора КЕТОКМ, управление передается 
вызывающей единице программы в точку ее прерывания, т. е. в точку 
вызова данной функции. На рис. 31 схематически изображено взаимо- 
действие внешних функций с вызывающей программной единицей. 

Следует заметить, что стандарт языка разрешает обрашение из 
одной программной единицы к некоторым другим (быть может, не- 
скольким) программным единицам в процессе выполнения тела 
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вызванной программной единицы — процедуры вычисления функции 
или подпрограммы (о подпрограммах речь идет несколько далее). 

Глубина вызовов подобного рода ничем не ограничивается. Однако 
цепочка вызовов должна быть в любом случае не замкнутой: никакая 
программная единица непосредственно или посредством других про- 
граммных единиц не может обращаться к самой себе (рекурсивный 
вызов процедур языком ФОРТРАН не допускается). 

Фактические параметры функции должны согласовываться с фор- 
мальными в порядке следования, типе и числе. Этими параметрами, 
в отличие от формальных, могут быть: 

идентификаторы переменных, | 

идентификаторы элементов массивов (переменные с индексами); 

идентификаторы массивов; 

любые другие выражения; | 

идентификаторы процедур — внешних функций или подпрограмм. 

Фактические параметры в рассмотренном выше примере—Х, У (5), 
2. (1,1) — должны согласовываться с формальными параметрами А, В, 
С оператора ЕОМСТТОМ. В данном случае это требование выполняет- 
ся. Имеются три параметра и все они вещественного типа. 

Совокупность операторов, определяющих внешнюю функцию, на- 
зовем телом данной функции. 

Как уже было отмечено, формальными параметрами внешних функ- 
ций (как и операторных, и подпрограмм) могут быть только иденти- 
фикаторы; последние перечисляются в списке формальных парамет- 
ров в первом операторе тела функции. При этом помимо того, что фор- 
мальные параметры могут быть идентификаторами простых перемен- 
ных, они могут также быть и другими объектами (см. порцию 102), 
в частности идентификаторами массивов. Последнее означает, что в 
теле процедуры-функции формальные параметры, являющиеся иден- 
тификаторами массивов, могут использоваться с последующими за 
ними индексами, число и значения которых должны удовлетворять 
общим требованиям языка в отношении значений индексов (согласо- 
вание их количества и значений с описанием соответствующего мас- 
сива, требования относительно вида индексных выражений). Допол- 
нительные требования, касающиеся размеров массивов, идентифика- 
торы которых являются формальными параметрами, следующие: 

1. Размеры массивов, идентифицируемых формальными парамет- 
рами, не должны превышать размеры массивов, определяемых соот- 
ветствующими фактическими параметрами. 

2. Размерность таких массивов должна быть равной размерности 
соответствующих массивов, определяемых соответствующими факти- 
ческими параметрами, или должна быть равной единице. 

З. Описание массивов, идентифицируемых формальными пара- 
метрами, может быть задано только операторами ОІМЕМЅІОМ или опе- · 
раторами спецификации типа (и не может быть задано оператором 


СОММОМ, как это может быть сделано для других, возможно, исполь- 
зуемых в теле данной внешней функции массивов). 

4. Все используемые в теле процедуры-функции массивы, у кото- 
рых хотя бы один из размеров задается переменной (их принято на- 
зывать массивами с регулируемыми размерами), должны быть вклю- 
чены в список формальных параметров, в который также должны быть 
включены идентификаторы всех переменных, определяющих регули- 
руемые размеры массивов. 

Фактические параметры внешних функций могут быть как просты- 
ми переменными, так и выражениями соответствующих типов, раз- 
личными или совпадающими, а также идентификаторами массивов и 
процедур. 

В качестве примера можно привести следующий оператор в вызы- 
вающей программной единице: 


МОЅТ= №1) —ІМТЕВ (М, Ј/3+3(9)) 


Первый оператор внешней функции с идентификатором ПМТЕВ может 
иметь вид: 


ҒОМСТІОМ ІМТЕК(ІА, В) 


Здесь фактические параметры в указателе (М,Ј/8*М№(2)) согла- 
суются с формальными параметрами ІА, 1В в порядке, числе и типе. 
Напомним, что в операторах ввода-вывода весь массив может быть 
представлен лишь одним своим идентификатором без индексов. Сле- 
дующая последовательность операторов, например, вполне допустима: 


РІМЕМ№ЅІОМ№ АВВАУ(10) 
КЕАО(9, 1) АВРАУ 
1 РОЕМАТ (29.3) 


Такой способ представления всех элементов массива можно при- 
менять и в теле функции. Например, первые операторы в теле функции 
могут иметь следующий вид: 


ЕОМСТІОМ $0М (АВБАУ, М, К) 
рІМЕМЅІОМ№ АВРАУ(10) 


Каждое обращение к функции с именем 50М должно содержать 
фактические параметры, согласующиеся с ее формальными парамет- 
рами. Допустима, например, запись 


АТРНА =2.4-$0М(ВЕТА,ЈА,ЈВ) 


где ВЕТА — идентификатор массива, размер которого не меньше 10. 
“Задание. 1. Можно ли в одной выполняемой программе обоз- 
начить одним и тем же идентификатором две разные внешние функ- 
ции? 
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2. Можно ли обозначить внешнюю функцию одним из идентифи- 
каторов, закрепленных за одной из встроенных функций? основных 
внешних? операторных? о 

3. Выполнение какого оператора определяет момент завершения 
процедуры? 

4. Обозначим буквами о, В, 7, 6 внешние функции, а символом — 
будем указывать обращение внешней функции к другой внешней 
функции. Допустимы ли следующие цепочки обращений? 


а) «>В >} В ӧ 


р-у 
5. Внешняя функция Е имеет в качестве своих формальных пара- 
метров Х, Ү, 2. Что можно сказать об этих параметрах, если в теле 
ЭТОЙ функции Нсзрезаотоя конструкции У(2--1.2), Х(1,2,2,4)? 


Порция 117 
Правила использования внешних функций 


В заключение приведем правила, которых следует придерживаться 
при написании внешних функций. 
о 1, Идентификатор внешней функции должен быть использован 
в первом операторе ее тела (операторе ЕОМСТІОМ№); употребление 
Этого идентификатора в других невыполняемых операторах тела не- 
допустимо. 

2. Идентификатор внешней функции должен определяться в ее 
теле (например, посредством его использования в левой части опера- 
торов присвоения). Например: 


ЕОМСТІОМ Ү(Х) 

ІЕ(Х—2.5)40,40,30 
40 У=.5*Х --.95*51Ҹ(Х -- 1.1) 

ВЕТОВМ 
30 Ү=.7+Х --.5301*«СО$(Х) 

ВЕТОВМ 

ЕМО | 
3. Каждая внешняя функция должна иметь по меньшей мере один 

формальный параметр. Оператор вида 


ЕОМСТІОМ ОМЕ | 
в котором отсутствуют формальные параметры, недопустим. 
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4. Никакой из формальных параметров внешней функции не может 
появиться в операторах ЕФОТУАГЕМСЕ, СОММОМ, РАТА. 

5. Внешняя функция может обращаться к другим функциям И ПОД- 
программам, но не может обращаться сама к себе ни непосредственно, 
ни посредством других программных единиц, в частности, две процеду- 
ры не могут обращаться друг к другу. 

6. Тип функции должен определяться первым оператором ее тела 
(явно или неявно). 

7. Если фактический параметр функции является идентификатором 
внешней функции (или подпрограммы), то соответствующий ему фор- 
мальный параметр должен употребляться в теле процедуры так же 
в качестве идентификатора внешней функции или подпрограммы. 

8. Если фактический параметр соответствует формальному, кото- 
рый определяется (или переопределяется) в теле процедуры-функции, 
то он в этом случае вызывается по наименованию и может быть только 
переменной, переменной с индексами или ‘идентификатором массива. 

9. Если формальный параметр внешней функции является иден- 
тификатором массива, то соответствующий ему фактический параметр 
должен быть идентификатором массива или элементом массива. 

10. Если идентификатор внешней функции используется в качест- 
ве формального параметра, то соответствующий ему фактический па- 
раметр должен быть указан в списке оператора ЕХТЕКМАЕ В ВЫ- 
зывающей программной единице. 

11. Допускается в теле функции определение или переопределение, 
а также вывод во внешнюю среду значений некоторых переменных 
или массивов. 

12. В теле процедуры не может быть более одного оператора 
ЕОМСТІОМ (этим оператором является ее первый оператор), более одной 
конечной строки (она является последней в записи процедуры), в нем 
обязательно использование по меньшей мере одного оператора 
ВЕТОВМ (такой оператор завершает выполнение процедуры вычи- 
сления внешней функции); в теле процедуры не допускается исполь- 
зование операторов $ОВКООТІМЕ, ВІОСК РАТА, $ТОР. 

Задание. 1. С помощью внешней функции предполагается 
произвести сравнение значений двух переменных Х и Ү. В случае 
‚ Х = Ү в основную программу должно быть возвращено значение 3. 
Если Х больше или меньше, чем У, и равняется 2, то’ должно быть 
возвращено значение 4. Если же Х не равно ни У, ни 7, то возвращает- 
ся значение 6. Для выполнения указанных операций составьте. описа- 
ние соответствующей процедуры ЕОМСТІОМ. 

2. Напишите описание внешней функции для нахождения наимень- 
шего числа в одномерном массиве, состоящем не более чем из 1000 эле- 
ментов. Дайте функции наименование ЗМАТ.Т.. ЗМАТТ, должна иметь 
два формальных параметра: наименование массива и целую перемен- 
ную, обозначающую количество элементов в массиве. 
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3. Допустимы ли следующие описания внешних функций? Если 
нет, то почему? 


а) ІОСІСАІ. ЕОМСТІОМ Е 

ГОСЇСАТ Хх 

СОММОМ О,Х,В 

Е=Х.АМР.О.СЕ.В 

РЕТОВМ 

ЕМ 

ГОСТСАТ, ЕОМСТІОМ Е(Х,У) 

" ОІМЕМЅІОМ Х(У) 
Е=Х(1)--Х(0)»Х(У) 

ВЕТОВМ. 

ЕМР 

ЕОМСТІОМ Е(Х,Ү) 

ГОСТСАТ, Х,Ү 

СОММОМ О,В 

Е=Х.АМР.У.АМО.О.ТТ.В +2 

ВЕТОВМ 

ЕМО 


>) 
= 


о 
“~ 


Порция 118 
Пример использования внешней функции 


Для решения систем линейных алгебраических уравнений приме- 
нимы некоторые усовершенствованные методы, если матрица А = 
= {а}, |і = 1, 2, .... п, составленная из коэффициентов а; 
этих уравнений, является симметричной. В связи с этим представ- 
ляется целесообразным иметь в наборе процедур внешнюю логиче- 
скую функцию, назовем ее идентификатором 5ІМ, имеющую в каче- 
стве формальных параметров идентификатор вещественного квадрат- 
ного массива А и размерность матрицы М. В качестве своего значения 
функция $1М выдает .ТКОЕ., если матрица А симметрична, и .ЕАІЕ. 
в противном случае. 

Описание такой функции может быть представлено в виде: 


ГОСТСАГ, ЕОМСТІОМ $1М(А,М) 
РІМЕМЅІОМ А(М, №) 


№1==№—1 

ро 2 1=1,№1 

Еа 

ро 2 Ј=1,№ 

ЇЕ(А(І, АС, 1))3,9,3 
2 СОМТІМО 

$1М=. ТВОЕ. 

РЕТОЮМ 


176 


3 $1М=.ЕАТЗЕ. 
РЕТОКМ 
ЕМО 


Задание. 1. Является ли обязательным в приведенном приме- 
ре включение второго параметра в список формальных параметров? 

2. Обязательно ли включение в тело описанной функции оператора 
РІМЕМЅІОМ? 


З. Замените арифметический оператор ІЕ логическим оператором ІЕ. 


Порция 119 
Подпрограммы 


Допустимые языком ФОРТРАН подпрограммы всегда оформля- 
ются в виде независимых («внешних») по отношению к главной про- 
грамме и друг к другу программных единиц, которые могут трансли- 
роваться раздельно и даже использоваться другими программами. 

Первым оператором каждой подпрограммы на ФОРТРАНе дол- 
жен быть оператор ЅОВРООТІМЕ, общий формат которого имеет 
ВИД: 


Ѕ0ВВООТІМЕ $ (о) 
ИЛИ 
Ѕ0ВВООТІМЕ $ 


Здесь 5 — идентификатор подпрограммы, 
о — список формальных параметров данной подпрограммы. 

В отличие от функций, где список формальных (а, следовательно, 
и фактических) параметров всегда должен содержать хотя бы один 
параметр, в языке допускаются подпрограммы без параметров. В этом 
случае связь вырабатываемых значений и передача их в вызывающую 
программную единицу может быть осуществлена посредством исполь- 
зования переменных из общих блоков (посредством оператора 
СОММОМ). 

Второй из приведенных форматов оператора ЗОВВООТ\Е и ис- 
пользуется в том случае, если подпрограмма не имеет параметров. 

Что касается сстальных операторов тела подпрограммы, то этими 
операторами могут быть любые операторы, которые допускаются при 
записи внешних функций; в конце записи подпрограммы также долж- 
на быть проставлена конечная строка ЕМ”. Как и в записи внешних 
функций, в теле каждой подпрограммы необходим хотя бы один опе- 
ратор КЕТОКМ. 

Пример. Предположим, что в нескольких программах необ- 
ходимо находить номер первого встретившегося элемента одномерно- 
го массива, равного нулю (число элементов в массиве равно 200). 
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В этом случае можно написать подпрограмму, параметрами которой 
будут идентификатор массива и индекс искомого элемента в нем: 


ЗОВВООТИМЕ 7ЕВО (АМАС,К) 
Р1МЕМЗТОМ АМАС(200) 
РО 10 1=1,200 
ІЕ(АМАС1)10, 9 10 
КЕТ 
ЕТОМ 
10 СОМТІМОЕ 


Если нуль в массиве не встретится, то переменной К присваивается 
значение 0, в противном случае — значение индекса элемента, рав- 
ного нулю. 

Обращение к подпрограмме ЕКО может иметь вид: 


САШ. 2ЕРО(В?2,1) 


‚Рассмотрим некоторую подпрограмму и вызывающую ее програм- 
мную единицу (которой может быть главная программа, другая под- 
программа или внешняя функция). 

Для установления связи между этими двумя программными еди- 
ницами идентификатор вызываемой подпрограммы должен быть ука- 
зан в каждой из них. 

В вызываемой подпрограмме идентификатор этой подпрограммы 

может (и должен) быть употреблен единственный раз — в ее первом 
операторе ЗОВКОЧТИМЕ. Иное использование данного идентифи- 
катора в этой программной единице (в том числе для обозначения 
каких-либо других объектов) языком запрещено. 
_ В вызывающей программной единице использование идентифика- 
тора вызываемой подпрограммы является обязательным, и оно воз- 
можно только в специальных операторах вызова подпрограмм — 
операторах САІШ. и в операторах ЕХТЕКМАГ (см. порцию 120). 

В этих операторах САТ.Г. указываются фактические параметры, 
используемые при выполнении вызываемой подпрограммы. 

В отличие от функций, которые обычно предназначены для опре- 
деления одного значения — значения функции, подпрограммы, как 
правило, предназначаются для определения нескольких значений 
(а также массивов). В связи с этим никакое из определяемых в под- 
программе значений не связывается с идентификатором подпрограммы; 
как было указано, идентификатор подпрограммы используется лишь 
‚ для связи с вызываемыми единицами, чем и объясняется запрет его 
использования в каких-либо других операторах данной вычислитель- 
ной процедуры. Таким образом, внутри данной подпрограммы ее 
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идентификатор не связывается с типом данного, не может быть специ- 
фицирован, и первая буква не играет никакой роли в выборе иденти- 
фикатора подпрограммы. 

Задание. 1. Использование каких операторов запрещено в 
теле подпрограммы между ее первым оператором и конечной строкой? 

2. Каковы различия в использовании идентификаторов подпро- 
грамм и функций, в частности, внешних? 

3. Какова роль первых символов идентификаторов подпрограмм? 


Порция 120 
Идентификатор подпрограммы 


Как это следует из предыдущего, идентификатор подпрограммы 
должен быть употреблен: 

Во-первых, в первом операторе ЗИВВОЧТИ\Е тела подпрограммы, 
названной этим идентификатором. Других употреблений данного 
идентификатора в теле этой подпрограммы не допускается. 

Во-вторых, в других программных единицах, обращающихся к 
данной подпрограмме, в операторах САІІ. 

Если подпрограмма построена с учетом взаимодействия формаль- 
ных и фактических параметров, то за идентификатором подпрограммы 
в операторе ЗОВКОЧТТУЕ следуют скобки с ее формальными пара- 
метрами, а в операторе САГТ. — с фактическими. 

Цомимо этих двух употреблений идентификатора подпрограммы 
(а также внешней функции) допустимо еше одно — в операторах 
ЕХТЕКМАТ.. Указание идентификатора подпрограммы и внешней функ- 
ции в ЕХТЕКМАТ, необходимо, если к этим процедурам имеется обра- 
щение через другие программные единицы (внешние функции или под- 
программы). В таких случаях идентификатор процедуры указывается 
в числе фактических параметров в вызывающей программной единице. 
При наличии обращения к некоторой процедуре, которой может быть 
как подпрограмма, так и внешняя функция, в вызывающей програм- 
мной единице все идентификаторы процедур, содержащих косвенное 
обращение, т. е. все идентификаторы процедур, встречающиеся в числе 
фактических параметров в обращениях к другим процедурам (в ука- 
_ зателях функций или операторах САТ.Г.) и только эти идентификаторы 
должны быть перечислены в данной программной единице в списках 
операторов ЕХТЕКМАГ.. 

Заметим еще раз, что в одной и той же программной единице допу- 
стимо обращение к некоторой другой процедуре как непосредствен- 
ное, так и посредством других программных единиц, но не к самой 
себе. 

В том случае, когда в данной программной единице имеет место 
обращение к некоторой процедуре как непосредственное, так и кос- 
венное, посредством других программных единиц, представляется 
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возможным определить тип идентификатора этой процедуры по форме 
непосредственного использования: является ли он идентификатором 
внешней функции (если этот идентификатор используется в указателе) 
или подпрограммы (если он используется в операторе САГГ). Тем не 
менее и в этих случаях, как было отмечено ранее, указание идентифи- 
катора в операторе ЕХТЕК МАТ. является обязательным. | 

Если в программной единице имеет место лишь косвенное обра- 
щение к некоторой внешней процедуре, т. е. идентификатор процеду- 
ры в выполняемых операторах встречается только в качестве факти- 
ческого параметра, то в таком случае информации, содержащейся 
в данной программной единице, недостаточно для определения типа 
этого идентификатора внешней процедуры. Принадлежность его к 
идентификаторам внешних функций или подпрограмм может быть 
‘определена лишь при рассмотрении других программных единиц 
(обращающихся непосредственно к данной процедуре) или ее тела. 
В этом случае принято говорить, что идентификатор в данной програм- 
мной единице относится к идентификаторам «внешних процедур, ко- 
торые не могут в данной программной единице быть классифицированы 
как внешние функции или как подпрограммы». 

Этим определением нам понадобится воспользоваться в дальней- 
шем. 

Рассмотрим вопрос о том, могут ли идентификаторы подпрограмм 
быть использованы для обозначения каких-либо других объектов в 
программе и в каком случае? 

Такое использование не допускается языком в вызывающих дан- 
ную процедуру программных единицах, а также в теле самой этой 
подпрограммы (исключение составляет допускаемое их использова- 
ние в качестве наименований блоков). Что касается всех других про- 
граммных единиц, то в них допускается использование идентифика- 
торов подпрограмм для обозначения каких-либо других объектов: 
простых переменных, массивов, операторных функций, формальных 
параметров, названий блоков, но не внешних функций и подпрограмм, 
так как выполняемая программа не должна содержать двух внеш- 
них функций или подпрограмм, имеющих одинаковые идентифи- 
каторы. 

Задание. 1. В каких программных единицах используются 
идентификаторы процедур (внешних функций и подпрограмм), в ка- 
ких операторах? 

2. Наличие какого оператора в программной единице обязательно 
в связи с косвенным обращением в ней к некоторым программным 
единицам? 

3. Идентификаторы каких объектов должны быть включены в 
список идентификаторов оператора ЕХТЕКМАІ? 

4. О чем говорит наличие оператора ЕХТЕКМАГ. в программной 
единице? 
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Порция 121 
Идентификатор подпрограммы (продолжение) 


Задание. 1. Массив, которому присвоен идентификатор ЕІ, 
является одномерным и содержит сто элементов. Напишите подпро- 
грамму нахождения среднего арифметического всех значений элемен- 
тов массива. Полученному значению должен быть присвоен иденти- 
фикатор А2. 

2. Напишите подпрограмму типа ЅОВВООТІМЕ для инверсии 
одномерного массива; иначе говоря, требуется поместить первый эле- 
мент исходного массива на последнее место результирующего массива, 
второй элемент исходного массива — на предпоследнее место резуль- 
тирующего массива и т. д. Массивы могут содержать не более 150 эле- 
ментов. | 

Дайте подпрограмме наименование ЭТК. ТВ должна иметь три 
формальных параметра: Х — идентификатор исходного массива, У — 
идентификатор результирующего массива и К — идентификатор це- 
лой переменной, определяющей длину массивов. 


Порция 122 
Вызов подпрограмм, оператор СА, 


Мы уже говорили, что вызов подпрограмм осуществляется по- 
средством специального оператора САТТ., который имеет формат: 


САЦ. $(с) 
ити САЦ, $ 


где 5 — идентификатор подпрограммы, с — список фактических па- 
раметров. Напоминаем, что список фактических параметров, заклю- 
ченных в скобки и разделенных между собой запятыми, в операторе 
САШ. должен быть согласован в числе элементов, в порядке их следо- 
вания и типе со списком формальных параметров, указанным в соот- 
ветствующем операторе ЅОВКООТІМЕ (с тем же идентификатором 
после служебного слова ЅОВКООТІМЕ). 

Что касается согласования параметров по их типу, то из общего 
правила имеется исключение. Оно касается использования текстовых 
констант в качестве фактических параметров, которое допускается 
языком. 7 

Фактическими параметрами в операторах обращения к подпро- 
граммам (операторах САТТ.) могут быть: 

1) идентификаторы переменных или переменных с индексами! 

2) идентификаторы массивов; 

3) выражения (допустимые в языке); 

4) идентификаторы внешних процедур; 

5) текстовые константы. 
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Если фактический параметр является идентификатором внешней 
функции или подпрограммы, то соответствующий ему формальный 
параметр должен быть использован в теле подпрограммы как иден- 
тификатор внешней функции или подпрограммы соответственно. 

После вызова подпрограммы посредством оператора САТТ. управ- 
ление передается первому выполняемому оператору подпрограммы. 

При этом формальные параметры в вызываемой подпрограмме при- 
мут значения фактических параметров или будут заменены фактиче- 
скими параметрами, указанными в операторе САШ., в соответствии 
с правилами, изложенными в порции 103. 

Далее подпрограмма будет выполняться, как любая программная 
единица вплоть до выполнения оператора ВЕТОЕ М, посредством ко- 
торого управление вновь будет передано в вызывающую программу 
выполняемому оператору, следующему непосредственно за опера- 
тором САГГ. 

Задание. 1. Одномерный массив А содержит не более 50 эле- 
ментов. Напишите подпрограмму $0ВКООТІМЕ, с помощью которой 
можно было бы подсчитать среднее арифметическое первых М элемен- 
тов массива А (№ < 50), а также количество К тех элементов, которые 
оказались равными нулю среди первых М элементов. Назовите эту 
подпрограмму СРЕРН. Используйте в качестве формальных пара- 
метров идентификаторы А и К для идентификатора исходного массива 
и числа его элементов, равных нулю. 

2. Затем составьте фрагмент программы, вызывающий эту подпро- 
грамму и использующий ее для нахождения квадрата среднего ариф-_ 
метического из первых 40 элементов массива В, причем значению квад- 
рата среднего арифметического присвойте идентификатор \УСР, а ко- 
личеству нулевых элементов — КМ 


Порция 123 
Результаты выполнения подпрограммы 


Как было описано в порции 113, результат выполнения внешней 
функции присваивается ее идентификатору и посредством указателя 
функции передается в вызывающий оператор (в точку вызова этой 
функции). е) 

В отличие от функций с идентг“‘икатором подпрограммы не связы- 
вается никакое значение. 

Каким же образом передаются результаты выполнения подпро- 
грамм в точку их вызова? 

Вырабатываемые подпрограммами значения могут быть использо- 
ваны двумя способами: А 

1. Они могут быть переданы в другие программные единицы фак- 
тическими параметрами посредством формальных, вызываемых по 
наименованию. 
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2. Эти значения могут быть переданы в другие программные еди- 
ницы посредством идентификаторов простых переменных или массивов, 
определенных в данной программной единице в операторе СОММОМ. 

Очевидно, что в случае подпрограмм без параметров единственной 
возможностью передачи результатов из вызываемой подпрограммы 
в вызывающую является использование операторов СОММОМ (т. е. 
использование идентификаторов, именующих элементы из общих бло- 
ков данных). 

На рис. 32 схематически изображены способы передачи результа- 
тов выполнения вызываемой подпрограммы в точку ее вызова. На ри- 
сунке показан обмен значениями между главной программой и тремя 
подпрограммами (А1, А2, АЗ). Причем значения, выработанные в 
подпрограмме АІ, могут быть возвращены в главную программу толь- 
ко через фактические параметры посредством формальных, вызывае- 
мых по наименованию. Значения из подпрограммы Д2 могут быть пе- 
реданы как через параметры, так и через идентификаторы переменных 
определенных в общем блоке (ВІ). Поскольку подпрограмма АЗ не 
имеет параметров, то результаты ее работы можно передать в вы- 
зывающую программу только через переменные из общего блока 
(ВК 
° В дополнение к сказанному о способах передачи результатов вы- 
полнения подпрограмм в вызывающую программу следует заметить, 
что вырабатываемые подпрограммами значения могут быть выданы 
во внешнюю среду посредством выполняемых в них соответствующих 
операторов вывода, для чего могут быть использованы любые пере- 
менные или массивы, значения которых определены внутри этих под- 
программ. 

Существенно отметить, что все сказанное относительно возмож- 
ности передачи результатов из подпрограмм посредством аппарата 
формальных-фактических параметров и элементов общих блоков, 
а также посредством использования внешней среды (через оператор 
вывода) в одинаковой мере касается и данных, являющихся исходны- 
ми для выполнения этих процедур. | 

В порции 125 мы ответим на вопрос о том, является ли аппарат 
формальных-фактических параметров и операторов СОММОМ взаи- 
мозаменяемым, а также на вопрос о том, в чем заключаются особенно- 
сти каждого из них. 

Задание. 1. Какими средствами могут быть переданы исход- 
ные данные в подпрограмму? 

2. Каким образом могут быть использованы результаты выполне- 
ния подпрограмм? а 

3. Может ли подпрограмма без параметров выдавать в разные 
моменты обращения к ней различные результаты? 

4. Как могут быть использованы результаты выполнения процедур 
без параметров? 
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Порния 124 
Некоторые ограничения на формальные параметры 
внешних функций и подпрограмм 


Как это было показано в порциях 103, 109, 112, существует три 
способа установления связей между идентификаторами, используе- 
‚мыми в программе: 

1. Связь фактических с формальными параметрами. 

2. Связь идентификаторов посредством операторов Е, ТЛУАГЕМ- 
СЕ; | | 

3. Связь идентификаторов посредством использования общих бло- 
ков памяти (устанавливаемая с помощью оператора СОММОМ). 

Наличие последних двух видов связи является причиной установ- 
ления некоторых дополнительных ограничений на формальные пара- 
метры процедур. Кроме того, эти ограничения касаются также воз- 
можностей использования формальных параметров в операторах 
РАТА. А именно: формальные параметры данной процедуры не могут 
быть включены в ней в списки операторов ЕОШІУАТ ЕМСЕ, СОММОМ 
и РАТА. к 

Для разъяснения этого ограничения вспомним, что среди фор- 
мальных параметров следует выделять параметры, вызываемые зна- 
чением и вызываемые по наименованию (последними параметрами яв- 
ляются те из них, которые встречаются в процедуре в левых частях 
операторов присвоения). 

Если формальный параметр вызывается значением, то, как это 
ясно из предыдущего, начальное значение этого идентификатора оп- 
ределяется текущим значением соответствующего фактического па- 
раметра. Таким образом, определение значения формального пара- 
метра посредством трех указанных операторов противоречило бы са- 
мой идее использования аппарата формальных-фактических пара- 
метров. 

Если формальный параметр является параметром, вызываемым 
по наименованию, то, как было указано ранее, для значений этих пара- 
метров никакие поля памяти не отводятся (при определении значений 
этих параметров используются поля памяти, отводимые соответствую- 
щим фактическим параметрам), в связи с чем, очевидно, нет смысла 
говорить об эквивалентности их значений, как значений их полей, 
определяемых операторами Е/ОПУАГЕМСЕ или СОММОМ, также 
как нет смысла говорить о начальных значениях этих идентификаторов, 
так как в качестве их начальных значений (если в них появляется 
необходимость) должны быть взяты значения из полей памяти, отве- 
денных соответствующим фактическим параметрам. 

Задание. Какие ограничения накладываются на использо- 
вание формальных параметров? 
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Порция 125 а, 
Формальные параметры и элементы общих блоков 


Сопоставим возможности, ‘предоставляемые аппаратом формаль- 
ных-фактических параметров и использованием переменных из об- 
щего блока. 

С этой целью обратимся к следующему примеру. 

Допустим, что в некоторой программной единице, назовем ее А, 
имеется два обращения к подпрограмме, назовем ее В. При этом в ка- 
честве результатов подпрограмма В вырабатывает значения некоторо- 
го массива. Здесь возможны две различные ситуации: результаты, 
вырабатываемые при каждом из обращений, используются последова- 
тельно, т. е. выработанные при первом обращении результаты исполь- 
зуются некоторым образом и к моменту второго обращения к подпро- 
грамме они уже не нужны. Другими словами, результаты, получаемые 
из подпрограммы — массивы данных, могут быть размещены в одни 
и те же поля памяти, чем достигается определенная экономия памяти. 

В этом случае передача получаемых результатов из подпрограммы 
может быть реализована посредством использования элементов общего 
блока памяти, т. е. заданием в вызывающей и вызываемой процедурах 
операторов СОММОМ, в каждом из которых среди элементов списков 
на одних и тех же позициях указываются идентификаторы, именую- 
щие общее поле памяти, отводимой для вырабатываемого процедурой 
массива данных. Тот же эффект будет достигнут и при включении в 
список формальных параметров параметра, идентифицирующего вы- 
рабатываемый массив: при этом для размещения этого массива-резуль- 
тата в одно и то же поле памяти потребуется в качестве соответствую- 
щего фактического параметра указать один и тот же идентификатор, 
предназначенный для его идентификации. 

Однако возможна и другая ситуация, при которой выработанный 
в результате первого обращения к подпрограмме массив используется 
впоследствии и должен быть сохранен после второго обращения к 
той же подпрограмме. Например, после второго обращения получен- 
ные два массива, используемые для хранения матриц, должны быть 
перемножены. 

Здесь без дополнительной памяти в принципе обойтись нельзя; 
для каждой из матриц должно быть выделено свое поле памяти. 

Если использовать аппарат, предоставляемый операторами 
СОММОМ, то в вызывающей программной единице в промежутке между 
первым и вторым обращением к подпрограмме потребуется осуществить 
пересылку рассматриваемого массива в некоторое другое поле (для че- 
го необходимо ввести соответствующий идентификатор в любом случае). 

Если же воспользоваться аппаратом формальных -фактических па- 
раметров, то в такой пересылке массива никакой необходимости не 
возникнет, достаточно будет в каждом из обращений к подпрограмме 


== 
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указать в качестве соответствующих фактических параметров разные 
идентификаторы. Отсюда следует, что аппарат формальных-фактиче- 
ских параметров является более гибким. | 

Однако реализация аппарата формальных-фактических параметров, 
вообще говоря, является более сложной. В связи с этим, если при об- 
ращении к некоторой подпрограмме во всех операторах обращения 
к ней в качестве фактического параметра используется один и тот же 
идентификатор, следует исключить соответствующий параметр из чис- 
ла формальных параметров и использовать возможности оператора 
СОММОМ. Обратитесь еще раз к рис. 39, иллюстрирующему различ- 
ные способы пересылки значений — результатов работы вызываемой 
процедуры. | 

Задание. В каком случае использование аппарата формаль- 
ных-фактических параметров является необходимым? Когда вместо 


него можно воспользоваться общим блоком данных (операторами 
СОММОМ)? 


Порция 126 
Примеры использования подпрограмм 


Пример 1. и 

Рассмотрим в деталях подпрограмму РЮОС, считывающую с пер- 
фокарт (номер устройства ввода — 2) массив ЕВ, содержащий тексто- 
вую информацию, и помещающую его в общий блок А. Затем этот мас- 
сив печатается в виде 50 строк так, что в первую строку помещаются 
его первые 15 элементов, во вторую — следующие 15 элементов и т. д. 
В начале каждой строки сохраняется по девять пробелов. 

Вывод массива указанным образом осуществляется некоторой под- 
программой Р без параметров, вызываемой подпрограммой РВОС. 


Подпрограмма Комментарии 
ЅОВВООТІМЕ РВОС В общий блок помещается массив, со- 


держащий 750 элементов. 

СОММОМ№/А /ЕВ(750) 

КЕАр(2,100)ЕВ | 

100 ЕОКМАТ(14А5) Коэффициент повторения 14 указывает 

на то, что с каждой очередной перфо- 
карты считывается по 14 значений эле- 

ментов массива до его исчерпания 

САШ. Р Вызов подпрограммы Р, не имеющей 


формальных параметров 
КЕТОВМ 


ЕМО 
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Подпрограмма Р может быть представлена в виде: 


Подпрограмма 
ЗОВКООТШМЕ Р 
СОММОМ/А/ЕК 


РІМЕМЅІОМ ЕКОЧТ (15,50) 
ЕООІУАТГЕМ№СЕ (ЕК(1) ЕКОЧТ(1)) 


РО 10 1=1,50 
10 МРІТЕ(1,200)(ЕРООТЦ(Ј,1),7= 1,15) 


200 ЕОКМАТ (10Х, 1545) 


КЕТОКМ 
ЕМр 


Комментарии 

Содержащийся в общем бло- 
ке А массив именуется тем 
же идентификатором ЕК 
(что делать не обязательно) 
Определяется двумерный 
массив ЕКООТ | 
Устанавливается эквива- 
лентность двумерного мас- 
сива ЕВООТ и массива ЕК 
(из общего блока), что 0з- 
начает, что идентификато- 
ры ЕВООТ иЕК именуют 
один и тот же массив дан- 
ных. 
Вывод текста осуществляет- 
ся посредством оператора 
цикла. В операторе МЕТЕ, 
содержащемся в области 
оператора РО, использует- 
ся список типа цикл. 
Формат 10Х в операторе 
означает пропуск девяти 
пробелов в начале каждой 
строки вывода (сохранение 
полей на странице печати). 
Коэффициент повторения 
15 задает вывод на каж- 
дую строку 75-ти символов 
(среди которых в выводи- 
мом тексте возможны про- 
белы) 


В операторе Р1МЕМ$ТОМ определен двумерный массив ЕКОЧТ, 
содержащий 50 подмассивов по 15 элементов: Г меняется от 1 до 50; 
Л меняется от 1 до 15. Оператор ЕЎООУАТЕМСЕ устанавливает сле- 
дующее соответствие между элементами массивов ЕК и ЕКООТ: 


ЕВ(1)«ЕВОЧТ (1,1) 


ЕВ (16)‹>ЕВООТ (1,2) 


`РВ(736)=>ЕВООТ (1,15) 


ЕВ(750)=>ЕВО0Т(50,15) 
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Порция 127 
Оператор ЕХТЕВМАЕ, 


Оператор ЕХТЕКМАТ, объявляет в данной программной единице 
те идентификаторы внешних процедур (процедур-функций и процедур- 
подпрограмм), которые в ней используются в качестве фактических 
параметров. Этот оператор необходим для того, чтобы отличить иден- 
тификатор процедуры от других идентификаторов в списке фактиче- 
ских параметров и обеспечить вызов соответствующей процедуры кос- 
венно, посредством другой процедуры или ряда процедур. 

Формат оператора ЕХТЕКМАГ, следующий: 


ЕХТЕВМАГ о 


Здесь о — список идентификаторов внешних процедур. 

Появление идентификатора в операторе ЕХТЕВ МАТ, объявляет, 
что данный идентификатор является идентификатором внешней про- 
цедуры. Все идентификаторы внешних процедур, ‘используемые 
в качестве фактических параметров других процедур, должны 
быть приведены в операторе ЕХТЕВ МАГ. Таким образом, оператор 
ЕХТЕКМАЕ используется для того, чтобы объявить в данной програм- 
мной единице идентификаторы подпрограмм, которые передаются в 
другие программные единицы в качестве фактических параметров. На- 
пример, появление в некоторой программной единице оператора 


ЕХТЕКМАІ, (,А12,К10 


говорит о том, что идентификаторы б, А12, К10О являются идентифи- 
каторами внешних процедур и что они могут быть использованы в ка- 
честве фактических параметров при обращении к другим программным 
единицам выполняемой программы. 

Отметим, что язык не допускает использования встроенных функ- 
ций посредством обращения к ним через формальные параметры. Дру- 
гими словами, если в списке оператора ЕХТЕКМАГ приведен иден- 
тификатор встроенной функции, то этот идентификатор тем самым 
объявляется идентификатором внешней процедуры, а не встроенной 
функции. Это значит, что при обращении к этой функции (т. е. при ис- 
пользовании ее идентификатора в качестве фактического параметра) 
тело встроенной функции с этим идентификатором не встраивается в ра- 
бочую программу, а осуществляется обращение к внешней процедуре 
с данным идентификатором, которая должна быть в этом случае со- 
ставлена программистом. В | 

Давайте разберем примеры, иллюстрирующие ситуации, когда 
использование оператора ЕХТЕКМАГ оказывается необходимым. 

Предположим, что некоторая выполняемая программа состоит 
из нескольких программных единиц, среди которых нам понадобится 
рассмотреть главную программу и процедуры. | 
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Главная программа 


оо ©.” Ле о о то. тетком Зе туге ко шо фе 


оо оо оно, о бешге тија те © о тер ө 
>. хм. Во ОР о АЯ С.С: 
бо БОЕ ОО ОКТ ОЖ ИО, 


г. ОТ С ОАО ООВ КА ца тоса 


ео Зоо о о, 5 ортеп ОЕ ое о кенесте 5 ө 


Процедуры 


 ЅОВВООТІМЕ ВЕЅ(Х,Ү,2) 


оо о “Зо Ш Ко ете ега обр то 5 е тте п ее 


ео. “о, бох ой бо Сто Чел еи ение е ее 


КЕТОКМ 
ЕМО 


Ѕ0ВВООТІМЕ ХЦКАВ,СО,Е) 
В=А(СО,Е)+*7.372: +5 %. 


КЕТОВМ 


Ем — 
ЕОМСТЮМ АВЗ(А,В,С) 


ВЕТОВМ 
ЕМО 
ЕОМСТІОМ В(А1,В1,С1) 


КЕТОВМ 
ЕМР 


Здесь предполагается, что посредством формального параметра МЕ 
в подпрограмму ВЕ$З и параметра А в подпрограмму Х1 будут переда- 
ваться фактические параметры, являющиеся идентификаторами неко- 
торых внешних функций. Заметим, что все те внешние функции, обра- 
шение к которым осуществляется одним и тём же указателем в теле 
каждой из подпрограмм, должны иметь в своих списках одинаковое 
число формальных параметров, согласуемых по типам и порядку их 
следования, что следует из правила согласования списков фактиче- 
ских и формальных параметров. Обратите внимание на идентификатор 
АВ$:; он является идентификатором встроенной функции, но, как от- 
мечалось выше, здесь он будет выполнять функцию идентификатора 
внешней функции, которая должна быть составлена программистом; 
первый оператор этой функции может иметь вид: 


ЕОМСТЮМ АВЅ(А,В,С) 


При выполнении оператора присвоения 2 = У(Х)--1.0 в под- 
программе ВЕЗ в результате ее вызова первым из указанных в глав- 
ной программе операторов САШ будет выполнен оператор 
р=51М(А)--1.0; и второго — оператор С=С05(2.7*5)--1.0. При вы- 
полнении оператора В=А(С,р,Е)+7.3/2.*5 в подпрограмме Хі при 
первом обращении к ней выполнится оператор У=АВЗ(А,В;С)*+7.3/2.*5, 
при втором — У2=В(А1,В1,С1)7.3/2.ж5. 

Рассмотрим еще один пример: 
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Вызывающая программная | Внешние процедуры 
единица 
Рр А Вх ӘОВКООТІМЕ КЕЗ1(А,В,С) 


И Оса Е Гуо реет гел өн "ортоп 


САШ, ВЕЅІ(Х,ВО(Ү),7) БЕТОВМ 
а | ЕМО 


ЕМЫ, ЕОМСТІОМ ВО(Х) 


е Жепет тее оп РО ера 0 б/е ого 


ФА ТӨ хо 30 со мет Сө отсо "отъ ФФ бе БТогас он ө 


В этом примере оператор ЕХТЕВМАІ. в вызывающей программной 
единице не нужен, так как фактическим параметром в операторе САІШ. 
является не идентификатор внешней процедуры, а указатель функции, 
т. е. при обращении к подпрограмме КЕЗ] в качестве второго факти- 
ческого параметра будет передан результат выполнения внешней 
функции КО с фактическим параметром У. 

Задание. 1. В каком случае в программной единице необхо- 
дим оператор ЕХТЕВ МАГ? | 

2. Может ли в программной единице в списке оператора 
ЕХТЕКМАГ быть указанным ее идентификатор?. | 

3. О чем свидетельствует наличие идентификатора встроенной 
функции в списке оператора ЕХТЕКМАГ, в некоторой программной 
единице? Что в этом случае означает наличие указателя этой встроен- 
ной функции в правой части оператора присвоения в данной про- 
граммной единице? 


Порция 128 
Оператор ЕХТЕКМАЕ (продолжение) 
` Косвенное обращение 

Проиллюстрируем использование оператора ЕХТЕВМАГ, необ- 
ходимость в использовании которого возникает при косвенном обра- 
щении к процедурам, на следующих примерах: 

Пример 1. 

Пусть в некоторой программной единице требуется вычислить зна- 
чение следующего выражения: 


п» 


к= Уа У соі УВ У рр 


іп, і=п, і—п; і=п; 
5 ка 7 5 
+ Их, + уо ~ Их» | 1100 
Здесь пределы суммирования в общем случае различны и заданы пере- 
менными целого типа. 
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Обратив внимание на то, что первые четыре слагаемых, являющие- 
ся суммами, могут быть вычислены посредством надлежаще заданного 
циклического процесса, мы вместе с тем замечаем, что их общие члены 
различны. 

Для вычисления общих членов заданных сумм определим внешние 
процедуры-функции, которые обозначим соответственно идентифика- 
торами РІ, Р2, РЗ, Р4. Поскольку во всех указанных суммах общие 
члены являются функциями одного параметра, целой переменной 1, 
определим их как процедуры-функции с одним параметром целого 
типа (сохранив за ним идентификатор 1). 

Кроме этого, определим внешнюю процедуру-функцию Т, предназ- 
наченную для суммирования некоторых членов, задаваемых в этой 
процедуре с помощью указателя, идентификатор которого является 
ее формальным параметром Е. Поскольку нам понадобится использо- 
вать данную процедуру Т для вычисления сумм с разными пределами 
суммирования, определим ее как процедуру с тремя параметрами: 
два из них являются нижним и верхним пределами суммирования 
(переменные целого типа № и М) и один — идентификатор процедуры 
Е (внешней функции). При обращении к процедуре Т в качестве фак- 
тических параметров для параметра Е будут использованы идентифи- 
каторы РІ, Р2, РЗ или Р4 для вычисления первой, второй, третьей 
или четвертой сумм соответственно. 

Заметив также, что последние два слагаемые имеют тот же вид, 
что и общий член четвертой суммы, мы выясняем, что для их вычисле- 
ния мы сможем обратиться к процедуре Р4. 

Прежде чем привести описания фрагмента программной единицы, 
в которой производится вычисление заданного выражения, и перечи- 
сленных процедур, обратим Ваше внимание еще на одно обстоятель- 
ство. Поскольку в четвертой сумме используются элементы массивов 
Х и Ү, афункцию Р4 мы определили как функцию от одного парамет- 
ра, возникает необходимость в использовании общего блока для вы- · 
зывающей процедуры (ниже мы приводим только фрагмент этой про- 
цедуры) и процедуры Р4, в которой используются элементы этих мас- 
сивов. Передача информации о массивах в данном случае посредством 
аппарата фактических-формальных параметров не представляется воз- 
можной, поскольку помимо процедуры Р4 из вызывающей процедуры 
мы обращаемся и к процедурам РІ, Р2, РЗ, у которых используется 
только по одному формальному параметру. Заметим при этом, что пра- 
вилами языка ФОРТРАН допускается косвенное обращение посред- 
ством одного и того же формального параметра (в нашем случае он 
обозначен через Е) только к тем процедурам, которые идентичны 
по типу (в нашем случае они все — внешние функции иа 
венного типа), имеют равное число формальных параметров (у нас — 
по одному) соответственно одного и того же типа (у нас — целого 
типа). 


194 


Обращаем также внимание на обязательность использования в вы- 
зывающей программной единице оператора ЕХТЕВ МАТ, и перечисле- 
ние в нем идентификаторов РІ, Р2, РЗ, Р4 (но не идентификатора про- 
цедуры Т, к которой вызывающая программная единица обращается 
непосредственно). 

Фрагмент программы: 

ЕХТЕКМАГ, Р1,Р2,РЗ,Р4 

СОММОМ Х 1(100),У1(100) 


ИТС. е гре. Тего "р р 0 


ЕОМСТІОМ Т(М,М,Е) 
0:0 
роП=м,М 
1 Т=т--ЕЦ) 
ВЕТОЮМ 
ЕМ” 
ЕОМСТІОМ РЕГ) 
Рр1= 1] 


ЕОМСТІОМ Р() 
А] 


р2—С05(2.0+А) 

КЕТОКМ 

ЕМО. 

ЕОМСТІОМ№ РЗ(П 

РЗ=1»**3 

КЕТОВМ 

ЕМ” 

ЕОМСТІОМ Р4(1) 

СОММОМ Х (100), Ү(100) 

Р4=50` ВТ (Х(1):2--Ү(1)2) 

ВЕТОКМ . 

ЕМО 

Пример 2. 

Для сравнения методики использования внешних функций и под- 
программ приведем фрагмент программы, решающей ту же задачу, 
что и в первом примере, однако использующую вместо внешней функ- 
ции Т подпрограмму, которую мы обозначим идентификатором РТ. 
В отличие от использованной в предыдущем примере внешней функ- 
ции Т, помимо тех же формальных параметров М, М, Е, нам понадобится 
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включить еще один формальный параметр $, предназначаемый в 
качестве носителя результата выполнения этой подпрограммы РТ, 
т. е. результата выполненного в ней суммирования. 

Фрагмент вызывающей программной единицы: 


ЕХТЕРВМАІ. Р1,Р2,Рз,Р4 

СОММОМ Х1(100),У1(100) 

САТ, РТ(М1,№,Р1,51) 

САГТ, РТ(№3,№4,Р9,52) 

САГТ, РТ(М5, № 6,РЗ,53) 

СА, РТ(№7,№8,Р4,54) 

В $1-+-82--53--34-Р4(50)-+-Р4(100 


Фи Фи Өте ЗО 04-0. во е о етого 9 лого 


Подпрограмма РТ: 


ЅОВКООТІМЕ РТ(М,М,Е,5) 

5=0.0 

рО 1 1=М,М 
1 $=5-РЕ(Г) 

КЕТОКМ 

ЕМО 

Описаний внешних функций РІ, Р2, РЗ, Р4, используемых в дан- 
ном фрагменте, которые при этом не претерпевают никаких изменений, 
мы не приводим. | | 

Задание. 1. В каком случае можно упростить программу, 
воспользовавшись вместо внешней функции операторной функцией? 

2. Учитывая ответ на предыдущий вопрос, по возможности мак- 
симально упростите приведенный в примере 1 в этой порции фрагмент 
программы, полагая, что МІ = № = № = №; №2 = № = № = №8. 

3. Замените в первом из приведенных в этой порции примеров 
внешние функции РІ, Р2, РЗ, Р4 подпрограммами. 

4. Допустимы ли следующие последовательности операторов в 


` одной и той же программной единице? 


П о е Е 2) ЕХТЕКМА Т 
СОММОМ А(50),В(50) А =Т(М,№) 
ЕХТЕКМАІ Т С РО МЕ УЛ 
ТІК)=А(К)--В(К)»2 САЦ. Е(А,Т,Т(М5,М5)) 

Р=Т1(1)-+-71(2) 3) ЕХТЕКМАГ Т 
САТАЕ ЕО Т(А)==АғВ--С 
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4) ЕОМСТІОМ Е(А,М) 
СОММОМ А(100),М,С 


5. Можно ли в примере 2 во всех операторах САГЛ, в качестве чет- 
вертого параметра указать один и тот же идентификатор? 


Порция 129 


Массивы с регулируемыми размерами 


Как было указано в порции 85 (при рассмотрении описателей `мас- 
сивов), для указания размеров массивов могут быть использованы, по- 
мимо положительных целых констант, идентификаторы переменных 
целого типа. Однако размеры массивов с помощью идентификаторов 
не могут указываться в главной программе; их разрешено употреблять 
только в подпрограммах и внешних функциях. ук 

Массив, в описателе которого размер задан идентификатором, на- 
зывается массивом с регулируемыми размерами. | 

Если в некоторой процедуре используются массивы с регулируе- 
мыми размерами, то в список формальных параметров этой процедуры 
должны быть включены: 

1. Все идентификаторы массивов с регулируемыми размерами. 

.2. Все идентификаторы переменных целого типа, задающие раз- 
меры регулируемых массивов. | 

В том числе, когда среди регулируемых массивов имеются такие 
массивы, граничные значения индексов которых совпадают, эти 
значения могут быть обозначены одним и тем же идентификато- 
ром (что позволит уменьшить число формальных параметров проце- 
дуры). 

Обратим внимание на ограничение, накладываемое языком на ис- 
пользование формальных параметров, задающих регулируемые раз- 
меры используемых в процедурах массивов: | 

1. Значения фактических параметров, задающих регулируемые 
размеры массивов, должны быть определены до обращения к про- 
цедуре. 

2. Эти значения не могут переопределяться в процедуре. 

3. Эти значения не могут становиться неопределенными. 

Таким образом, например, формальный параметр в процедуре не 
может быть использован в качестве параметра оператора цикла, а так- 
же не может быть использован в операторе СО ТО по предписанию 
и, соответственно, в операторе АЗЗТ@М (поскольку при этом соответ- 
ствующая целая переменная становится неопределенной). 
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Кроме того, как было указано в порции 103, формальному пара- 
метру, являющемуся идентификатором массива, должен соответст- 
вовать фактический параметр, являющийся либо идентификатором 
массива, либо переменной с индексами. В любом случае размеры регу- 
лируемого массива не могут превосходить размеры массива, опреде- 
ляемого соответствующим фактическим параметром. | 

Таким образом, каждому массиву с регулируемыми размерами ста- 
вится в соответствие массив (или переменная с индексами) из вызы- 
вающей процедуры. Последний, в свою очередь, если вызывающая 
процедура сама была вызвана другой процедурой или главной про- 
граммой, может оказаться массивом с регулируемыми размерами. 
Однако в любом случае для каждого массива с регулируемыми раз- 
мерами должно существовать по меньшей мере одно описание с по- 
стоянными размерами. Заметим также, что ограничение, касающееся 
того, что формальные параметры не могут быть использованы в опера- 
торах СОММОМ, в равной мере относится и к идентификаторам регу- 
лируемых массивов: такие идентификаторы не могут появляться в 
списках оператора СОММОМ. Это ограничение вызвано тем, что па- 
мять под общие блоки памяти отводится при трансляции и не может 
перераспределяться. 

Задание. 1. Какими средствами могут описываться размеры 
массивов и в каких случаях? | | 

9. Какие массивы называются массивами с регулируемыми разме- 
рами? 

3. Каковы требования к спискам формальных параметров проце- 
дур, использующих массивы с регулируемыми размерами? 

4. Процедура использует три массива с регулируемыми размера-. 
ми. Какое минимальное число формальных параметров должно быть 
использовано в ней в связи с этим? максимальное? 

5. Процедура использует массив с регулируемыми размерами. 
Может ли эта процедура быть задана как процедура без параметров? 

6. В процедуре осуществляется умножение квадратных матрии, 
имеющих регулируемые размеры. Можно ли результирующий массив 
(матрицу, получаемую в результате умножения исходных матриц) 
передать в вызывающую процедуру через общее поле (вызывающей и 
вызываемой программных единиц) памяти? Можно ли в качестве пара- 
метров циклов при этом воспользоваться формальным параметром, 
определяющим размеры массивов? 

7. Допустимы ли следующие последовательности операторов в 
одной программной единице? 

1) ЕОМСТЮМ Е(А,М) 2) ЅОВКООТІМЕ Е(А,М) 

РІМЕМЅІОМ А(М) Р1МЕМЗЮМ А(10,М) 


АЅЅІСМ 5 ТО М СО ТО М,(3,4). 
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3) ЅОВВООТІМЕ Е(А,М) 5) ЕОМСТЮМ Е(А,М) 


Р1МЕМЗОМ А(М,5,3) ОІМЕМЅІОМ А(М) 

РО 5 М=1М `` РО 5 М! =1М 

Бом ^^ 6) РОМСТІОМ Е(А,М) 

И РІМЕМІОМ А(М) 

ФР50ВВОСТТ ЕСА: ВС) а Е 
ЕХТЕКМАГ, В М: 

АЕНА рО 5 Қ=1,100,М' 
Порция 130 

‚ Массивы с регулируемыми размерами 

(продолжение) | 


Пример 1. Рассмотрим процедуру (обозначим ее идентифика- 
тором №) умножения двух квадратных матриц фиксированного по- 
рядка К = 10. Оформим ее в виде подпрограммы с тремя параметрами 
А, В, С, используемыми в ее теле в качестве идентификаторов двух 
исходных массивов (А и В) и результирующего массива (С). По опре- 
делению элемент матрицы-произведения С (1., М) вычисляется по фор- 
муле: 


10 
С (Г, М) = Ў А(І, +В (Г, М) 
3)! 


Для вычисления одного элемента С (Г, М) можно обратиться к опе- 
ратору цикла РО. Для вычисления строки матрицы-произведения 
нам понадобится выполнить двойной цикл, для получения всей иско- 
мой матрицы — тройной цикл. 

ЗОВКООТИМЕ М(А,В,С) 
РІМЕМЅІОМ А(10,10),В(10,10),С(10, 10) 
БО 1 М=1,10 

ВО Е- ВТО 

С(Т.,М)=0.0 

ВО ЕТ, © 

СГМ) =С(Е,М)-- А(Т., Г) В, М) 
СОМТИХОЕ 

КЕТОВМ 

Ем 


Напомним, что описание размеров и размерностей любых массивов (что. 
осуществлено в нашем примере с помощью оператора Р1МЕМЗЮОМ), 
используемых в каждой программной единице, обязательно, 


= 
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Оператор вызова данной подпрограммы может иметь, например, 
следующий вид: 


САІЛ, МС 1,Х2, ХЗ) 


При этом размерности массивов Х1, Х2, представляющих собой 
исходные матрицы, должны быть равными 10 х 10. | 

Число формальных параметров может быть уменьшено при дости- 
жении того же результата (поскольку в данном случае массивы имеют 
фиксированные размеры). Например, мы можем отказаться от фор- 
мального параметра С, воспользовавшись общим для вызывающей и 
вызываемой программных единиц блоком памяти. Так, если в вызы- 
вающей программной единице будет задан оператор: 


СОММОМ Х3(10,10) 


и оператор обращения к подпрограмме, которой мы теперь присвоим 
идентификатор №1: 


САІШ МІ(ХІ,Х2) 
то подпрограмму №1 можно будет записать в виде: 


Ѕ0ВВООТІМЕ \/ЦА,В) 
СОММОМ С(10,10) 


ЕМр 


Остальную часть программы, не претерпевшую изменений, мы обозна- 
чили многоточием. Г 

Однако имеется некоторое различие в подпрограммах \У и МІ. 

Если первой из них мы можем воспользоваться, исходя из любой 
программной единицы (в которой определены соответствующие мас- 
сивы, имеющие необходимые размеры 10 Х 10), то вторая может быть 
использована только теми программными единицами, которые исполь- 
зуют массивы, определенные в них соответственно оператором 
СОММОМ, то есть для всех обращений используются одни и те же 
поля памяти, обозначенные, быть может, другими идентификаторами. 

Таким образом, аппарат формальных-фактических параметров 
является более гибким, что уже было нами отмечено ранее. 

Пример 2. Продолжим рассмотрение предыдущего примера, 
поставив вопрос о расширении возможностей приведенной в нем под- 
программы вычисления произведения квадратных матриц. Для реше- 
ния той же задачи составим подпрограмму, но такую, которая позво- 
ляла бы находить произведение квадратных матриц любого порядка. 

В таком случае нам понадобится воспользоваться формальными 
параметрами, идентифицирующими регулируемые массивы, что озна- 
чает необходимость включения в число формальных параметров также 
идентификатора, определяющего размеры массивов (в данном случае, 
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так как матрицы квадратные, понадобится ввести только один допол- 
нительный параметр). Присвоим подпрограмме идентификатор №2. 


ЅОВКООТІМЕ \9(А,В,С,К) — 
”ІМЕМ№ЅІОМ А(К,К),В(К,К),С(К,К) 


ро 1 М=1,К 

РО 1 1—1.К 
_ СМ.) =0 

РО 1'1=1,К 

С(М,1.)=С(М,1)+А(М,1)=*В(1,1) 
1 СОМТІМОЕ 

ВЕТОВМ 

ЕМО 


Теперь к приведенной подпрограмме можно обратиться, например, 
с помощью оператора 


САШ, М(Х1,Х9,Х3,19) 
ИЛИ 
САШ, №2 (Х1,Х2,ХЗ,М-- 1) 


При этом значение переменной М (как и значения всех элементов 
массивов ХІ и Х2 в обоих случаях) должно быть определено к моменту 
вызова процедуры №2. ЕЙ 

Следует обратить внимание на то, что в подпрограмме №2 мы не 
можем освободиться от формальных параметров, прибегнув к опера- 
тору СОММОМ; средствами передачи данных в вызываемую подпро- 
грамму или возврата из нее результатов в случае массивов с регули- 
руемыми размерами (кроме аппарата формальных-фактических пара- 
метров) язык ФОРТРАН не располагает. 


Порция 131 
Примеры использования процедур 


Пример 1. 
Пусть требуется составить описание внешней функции, принимаю- 
щей значение скалярного произведения двух любых столбцов произ- 
вольной заданной матрицы (т. е. суммы попарных произведений соот- 
ветствующих элементов этих столбцов}. 
< Примем следующий план решения поставленной задачи: . 

1) Выбор идентификатора функции. 

2) Определение формальных параметров. 

3) Составление тела внешней функции. 

4) Анализ полученного выражения. 

1. Для определяемой нами функции выберем идентификатор $Р 
(в предположении, что этот идентификатор будет соответствовать не- 
явному определению типа переменной $Р). 
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2. По условию задачи в теле функции должно иметь место обраще- 
ние к элементам произвольной заданной матрицы. Считая, что размеры 
данных матриц могут быть различными, мы приходим к выводу, что 
в описании функции следует воспользоваться массивом с регулируе- 
мыми размерами. В соответствии с правилами, изложенными в порции 
129, в число формальных параметров данной внешней функции в та- 
ком случае должны быть включены как идентификатор массива (пусть 
это будет идентификатор вещественного массива А), так и идентифи- 
катор переменной, значение которой определяет размеры данного мас- 
сива А (пусть это будут идентификаторы переменных целого типа: 
М — число строк, М — число столбцов). Поскольку составляемая 
процедура-функция должна быть рассчитана на вычисление скаляр- 
ного произведения двух произвольно выбранных столбцов любой за- 
данной матрицы, в число ее формальных параметров следует включить 
идентификаторы переменных целого типа, являющихся номерами этих 
столбцов. Пусть это будут идентификаторы Г и соответственно. 

3. В принятых обозначениях перейдем к составлению необходимо- 
го описания. 

Первым оператором описания процпедуры-функции должен быть. 
оператор ў 

ЕОМСТІОМ ЅР(А,М,М,1,Ј) 


Заметим, что формальные параметры в описании функции могут 
быть перечислены в произвольном порядке, однако раз и навсегда 
фиксированном; т. е. таком, каким он указан в операторе ЕОМСТІОМ. 

Следующим оператором в искомом описании должен быть, очевид- 
но, оператор РІМЕМЅІОМ или оператор КЕАЇ., в котором будет опи- 
сан массив Д: 


РІМЕМІОМ А (№, М) или ВЕАГА (№, М) 


Вычисление скалярного произведения двух столбцов матрицы мо- 
жет быть выполнено посредством следующих операторов: 
ро 5 К=1,М 
5 $Р=5Р +-А(К,1ғА(К,Ј) 


которым должен предшествовать оператор 
ЗР==0.0 


присваивающий переменной $Р начальное значение, равное 0.0, и обес- 
печивающий тем самым рекурентность выполнения циклического про- 
цесса. 

Таким образом, описание интересующей нас процедуры-функции 
можно представить в виде: 


РОМСТЮМ $Р(А, М, М, 1,7) 
РІМЕМЅІОМ А(№,М) 
5Р=0.0 
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РО 5 К=1М 

5 5р-—8Рр +А(К,)*А(К,Ј) 
РЕТОВМ 
ЕМ 


4. Давайте посмотрим, не может ли быть уменьшено число формаль- 
ных параметров внешней функции $Р? 

Как мы знаем, передача информации из вызывающей процедуры 
в вызываемую может производиться двумя способами: через аппарат 
формальных-фактических параметров (уже примененный нами) или 
через общие блоки данных, определяемые соответствующими операто- 
рами СОММОМ. Напоминаем, что массивы данных могут быть вклю- 
чены в общую область только при условии, что они имеют фиксирован- 
ные размеры (эти размеры могут задаваться непосредственно в опера- 
торе СОММОМ). | | 

Так, если бы все матрицы, для столбцов которых будут вычислять- 
ся скалярные произведения, имели бы размер 15 х 10, то вместо при- 
веденного выше описания процедуры-функции ЭР можно было бы 
написать такую процедуру (присвоим ей идентификатор $Р1): 


ЕОМСТІОМ $Р (1) 
СОММОМ А(15, 10) 


5Р1=0.0 
РО 15 К=1,15 

15 $Р1=$Р1--А(К,1)*+А(К,7) 
ВЕТОВМ 
ЕМ” 


Таким образом, включение идентификатора массива А и иденти- 
фикаторов М и М, определяющих размеры этого массива в случае ре- 
гулируемых размеров, является обязательным. Что касается парамет- 
ров Ги}, то эти параметры могут быть исключены из списка формаль- 
ных параметров, а передача им значений может быть осуществлена 
посредством идентификаторов переменных из общего блока. 

Однако, как было отмечено в порнии 113, синтаксис языка 
ФОРТРАН требует наличия по меньшей мере одного формального 
параметра в записи оператора ГОМСТТОМ. Таким образом, описание 
требуемой функции может быть представлено, например, в виде: 


ЕОМСТІОМ $Р5(А) | 
СОММОМ /5/1,Ј : 
РІМЕМЅІОМ А(15,10) 
5р2—0.0 | 
ро 6 К=1,15 
6 $2Р2=5Р2--А(К,Г)+А(К,Т) 
РЕТОВМ 
ЕМ” 


203 


ИЛИ | 

РОМСТ1ОМ $РЗ(І) 

СОММОМ А(15,10),Ј 

5Р3=0.0 

РО 6 К=1,15 

6 5р3=5р34-А(К,1)*А(К,Ј) 

КЕТОРМ | 
ЕМО 


Пример 2. 

Составить описание внешней функции, определяющей скалярное 
произведение 1-й строки матрицы А, имеющей размер 15 Х 10, на 1-й 
столбец матрицы В, имеющей размер 10 х 12. 

В отличие от описания процедуры, приведенного в предыдущем 
примере, в теле этой функции встречаются обращения к элементам 
_ двух матриц: А и В, которые, естественно, должны быть описаны в со- 
ответствующих операторах. | 

Ниже приведено описание требуемой функции с учетом возможно- 
сти использования массивов с регулируемыми размерами. 


9 РОМСТ!ОМ $РЅ(А,В,М,№,.,1,Ј) 

 РІМЕМЅІОМ А(М,№),В(№,1) 
5050.0 
ро 7 К=1,№ 

7 $Р$=$Р$-- А(Г,К)=В(К,Т) 
РЕТОВМ 

РМ 7 


‚Подпрограмма РР, описание которой приведено далее, предна- 
значена для вычисления произведения матриц А и В, имеющих, соот- 
ветственно, размеры 15 Хх 10 и 10 Х 12. В теле этой подпрограммы 
имеется обращение к внешней функции 5Р5, описанной выше. 


ЗИВВОЧТИМЕ $РР(А, В, С) 
РрІМЕМЅІОМ 4(15,10),В(10,12),С(15,12) . 
со 10 1=1,15 
РО 10 Ј=1;19 
10 С(Т,)=$Р5(А,В,15,10,12,1,7) 
КЕТОВМ 
ЕМ№Р 


Пример З. 

Опишем процедуру ГОС, содержащую в качестве формального 
параметра идентификатор двумерного массива А и выдающую в ка- 
честве результата логический вектор В, к-ая компонента которого 
В (К) равна .ТВОЕ., если хотя бы один элемент к-го столбца матрицы 
А отличен от нуля, и .РАГЪЗЕ. в противном случае. 
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Описание данной процедуры может быть представлено в виде: 


ЗОВКОЧТИМЕ Т.ОС(А,М,М,В) 
ГОСТСАТ, В 
РІМЕМЅІОМ А(М,№),В(М) 
РО 4 1=1,М 
РО 2 1=1М 
1Е(А(,Г).МЕ.0.)СО ТО З 
2 СОМТІМОЕ 
В()=.ЕАТЗЕ. 
СО ТО 4 
3 В(1)=.ТВОЕ. 
4 СОМТІМОЕ 
КЕТОВМ 
ЕМО 


Задание. 1. В некоторой программной единице требуется вы- 
числить 5 — сумму произведений второго столбца матрицы А на тре- 
тий, и 51 — третьего на пятый, а также 52 — сумму квадратов эле- 
ментов второго и третьего столбцов. Запишите операторы присвоения | 
для вычисления этих значений, используя описанную в примере 1 
функцию $Р. 

2. Может ли быть уменьшено число формальных параметров в под- 
программе, приведенной в примере 3? 

З. Замените логический оператор ІЕ арифметическим. 

4. Обязательно ли наличие в теле процедуры оператора 
РІМЕМЅІОМ А(М,М№),В(№? 

о. Сохранив содержание программы, постарайтесь уменьшить 
число составляющих ее операторов. . | 


Порция 132 
Сопрограмма данных 


Сопрограмма данных используется для присвоения начальных зна- 
чений переменным из помеченных общих блоков. Первым оператором 
сопрограммы данных должен быть оператор, формат которого имеет 
ВИД: 


ВГОСК РАТА 


За этим оператором в сопрограмме данных следуют операторы спе- 
цификаций, операторы начальных данных РАТА и конечная стро- 
ка ЕМО. 

Кроме перечисленных операторов сопрограмма данных не может 
содержать никаких других операторов. 

Сопрограмма данных должна содержать хотя бы один оператор 
СОММОМ и хотя бы один оператор РАТА. | 
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Пример. 


ВОСК РАТА 
СОММОМ/ВТ.ОСК1/ОМЕ Т\МО,ТНВЕЕ ЕОПВ 
КЕАТ, ОМЕ, ТМО, ТНКЕЕ 
МТЕСЗЕК РООК 
РАТА ОМЕ, ТМО, ТНЕВЕЕ /5.0,2+6.5/,ЕООВ/92/ 
ЕМр | 
Лля данного примера сопрограммы данных ниже приведен порядок 


следования элементов в помеченном общем блоке ВІОСКІ, их тип 
и значения, присвоенные им в сопрограмме данных. 


—_———ыыЫ—ы—ы—ыы—ы—ыы——ы—ы———ы—ЩШЩПМЩщЩШЩШ—Ш—ШщШЩШЩШЩ——_К_—К—д—д———_—З—_—— 


Ва а элемента блока ОМЕ е ТНВЕВ | ООВ 
| Тип | РЕА, | БЕА, | ВЕАГ, | МТЕСЕВ 
| Начальное значение | 5.0 | 6.5 | 6.5 | 92 | 
ИНОЕ НЕНИН ОНИЕ 


Если какой-нибудь переменной помеченного блока СОММОМ при- 
сваивается начальное значение в сопрограмме данных, то в этой со- 
программе должны быть полностью описаны (в операторах типа, 
ОІМЕМЅІОМ и т. д.) все элементы данного блока СОММОМ, даже 
если некоторые из них не появляются в операторе РАТА. 

Пример. 


ВОСК РАТА 

ІМТЕСЕВ АІ 

ВЕАТ, 1А9(4) 

ГОСТСАГ, `ВООГ1, ВООІ2 

РІМЕМЅІОМ АЗ(3) 

СОММОМ/ВІ.ОСК/А1,1А9(4),ВООІ1, ВООІ2, АЗ 

РАТА А!,1А2(2), ВООГ1,ВООТ-2/0,1.0,.ТВУЕ.,.ЕАТЗЕ./, 
е А3(1),АЗ(3)/4.91,2.0/ 

ЕМО 


Порядок следования элементов в помеченном общем блоке, их тип 
и значения, присвоенные им в сопрограмме данных: 


———_—`——[—---[ыыы—ы—ыы———ВмВмВВмЩВВЙВВВВммм—Э—ы_—- 


Идентифика- 


торы элемен- 
р А! 


ВОО |В0012 


тов блока ТА? (1) ПА? (2)1ТА2 (3) | ТА? (4) АЗ (1) [АЗ (2) | АЗ (3) 
СОомММОМ | 

Тип тко РЕАГ, | ВЕРА. кВА) ВЕАЬ |1001са:остслу квл кл. |келі 
ИАА В Ар ннРЧНИ О "ТО О И 
Начальное 
| значение 0 1.0 ТВОЕ, РАГЗЕ. | 4.21 2.0 
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С помощью одной сопрограммы данных можно присвоить началь- 
ные значения переменным из нескольких помеченных блоков СОММОМ 
Пример. 


ВІОСҚ РАТА 
ІМТЕСЕРВ В(5) 

ВЕАГ. М,С 

СОМРЕЕХ 2 

РІМЕМЅІОМ С(3) 

СОММОМ/ВІ.ОСКЗ/В ‚С/ВТ.ОСК4/М.7 

РАТА К(1),В (2), В (3)/3*5/,С(1),С(2)/1.,2./,2/(@.3,1.5)/ 


4 


Размещение элементов общего блока ВГОСКЗ: 


—-—--— 


Идентификаторы 
м блока | В (1) В (2) В (3) В (4) В (5) С (1) (О) Є 703) 


ІЧТЕСЕКІМТЕСЕВІМТЕСЕВ |1МТЕСЕВ |ІМТЕСЕВ | КБА, | ВЕАІ, | РЕАІ, 


ані о аА. 


Начальное значе- 
ние 


Размещение элементов общего блока ВГОСКА: 


Идентификаторы элементов блока СОММОМ | м | 2, 
арра аа 
Та · | БЕА. | СОМРІЕХ 


м— а раа 
Начальное значение | | 2.3 85 


Барар Е ЕЕЕ ЕСЕНЕН ее 


Для того чтобы изменилось начальное значение, присвоенное пере- 
менной в сопрограмме данных, эта переменная при выполнении опера- 
торов должна появиться: | 

1) всписке переменных в операторе ввода 
ИЛИ 

2) в левой части оператора присвоения 
ИЛИ | 
3) в качестве управляющей переменной цикла в операторе РО 
_ ИЛИ 

4) в качестве параметра в операторе САТ... 

Сопрограмма данных является программной единицей и трансли- 
руется отдельно. 

Результатом выполнения сопрограммы данных будет размещение 
в соответствующих ячейках памяти начальных значений помеченных 
общих блоков. 


201 


Задание. 


Присвоить следующим переменным и переменным 


с индексами из общего блока ВІОСКо начальные значения, исполь- 
зуя сопрограмму данных. В блок СОММОМ входят два двумерных 


| СОММОМ/А5/ 


оэзооэосо ооо оф 


| САЦ: ЗАМІ(КК 


ооо Фе о э е 


| САГЕ $АМ2(5, 


5 
| САЦ ЅАМ2(К 


| 5Т=Акж2+Е1(5, В, 


СР ооо 
| ЕМ 


ЗИВЕОИТТМЕ $ АМ! (Е) 


Фо ооо оо» 


| 
| 
| 
ЅОВАОШТІМЕ ЗАМ2(1,5,®) | 


| МК=К1+5081(Е2(1,К)) Тело 
п о с о ру подпрограммы 

С о оте челт СО СИ. ЅАМЇ 
ВЕТИКМ 
ЕМ 
а енарр Тело 
САШЕ 5АМЗ подлрограмму 
Е отау 5А4М2 
КЕТОКМ 
ЕМО 
РИМСТТОМ Е1(А,8,1) | 
и ВЕН 9 Тело 
Е =Акж[/Е?(А,Ј) у функции 
ЕТИМ ЕИ 
ЕМО 
РШМСТІОМ Е2(8,1) а 
ооооезго ео о о ө о | | Тело 

е Ф.о © © о ә ® о о © Ф о НК. ии 

| СА ЅАМ2(КА,2%5,5+1) НН 
ВЕТИКМ 
ЕМО 
сИВЕОИТМЕ 5АМЗ 
Е 
еее | | ЛОдпрограммы 
РЕТИКМ ЅАМЗ 
ЕМр 


Рис. 28 | 
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массива данных целого типа (А 
и В), состоящих из четырех эле- 
ментов каждый (2 Х 2), две ве- 
щественные переменные С и Р 
и переменная логического типа 
ВООГ3. Перечисленные пере- 
менные должны получить сле- 
дующие значения: А (1,1) = 2; 


АО. =: ВО) АСЕ 

АТГ ВОО. Е АЛЕ 
Порция 133 
Структура 


ФОРТРАН-программы 


Как мы уже говорили в пор- 
ции 1, ФОРТРАН-программа 
может состоять из нескольких 
программных единиц, среди ко- 
торых обязательно должна быть 
одна, называемая главной про- 
граммой. 

Выполнение ФОРТРАН-про- 
граммы всегда начинается с пер- 
вого выполняемого оператора 
главной программы. 

На рис. 33 приведена типич- 
ная структура выполняемой про- 
граммы. 

Выполнение каждой подчи- 
ненной программной единицы, 
как и главной, также начинает- 
ся с ее первого выполняемого 
оператора. Вызов любой про- 
граммной единицы — внешней 
функции или подпрограммы — 
всегда связан с обращением из 
главной программы, непосред- 
ственным или посредством дру- 
гих программных единиц. 

Задание 1. Запишите 
операторную функцию для каж- 


дой из перечисленных ниже формул (тип идентификаторов задан 
неявно): | 


Идентификатор функции Формула Параметры 
а) Е і? + 510 (1-- 1) +- Е і 


б) Е ОЗУ Е р 
в) М ѕ + (1 4- 2А)? $, К 


2. Напишите внешнюю функцию с идентификатором @ и двумя 
формальными параметрами: Х и А. Значением О должно быть ах?, 
если Х меньше нуля, и ах?, если Х больше либо равно нулю. 

3. Составьте программу, использующую внешнюю функцию из 
предыдущего задания и подпрограмму умножения матриц десятого 
порядка. 3 

Программа должна выполнять следующие действия: 

а) Чтение с перфокарт массива В размером 10 х 10. Чтение долж- 
но производиться по столбцам (т. е. первый индекс должен меняться 
с большей частотой) в предположении, что исходные данные отпер- 
форированы в формате Е14.4. | 

б) Чтение с перфокарт массива ВМ размером 10 Х 10. Чтение дол- 
жно производиться по строкам (т. е. второй индекс должен меняться 
с большей частотой). Используйте тот же самый оператор ЕОВМАТ. 

в) Умножение матрицы В (множимое) на матрицу ВМ (множитель) 
с помощью подпрограммы М. Результат необходимо поместить в мас- 
сив А 

г) Вычислить, используя функцию О, значение С(А(1,Ј),Ю) при 
Р = 5.0 для каждого элемента массива А. Присвоить значения функ- 
ции соответствующим элементам А, заменив прежние значения. 

д) Отпечатать на АЦПУ содержимое массива А (по строкам) по 
пять чисел в строке в формате Е10.4. 
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Методика конструирования программ 
из программных единиц 


Для усвоения методики конструирования ФОРТРАН-программ 
из программных единиц рассмотрим ряд примеров. · 

Пример 1. | | 

Для приближенного вычисления определенных интегралов . 


р 
Ј= Ро) ах 


часто используют метод Симпсона (парабол) численного интегрирова- 
ния, согласно которому 


1—1 
г а о че + Зина - 00 + 


+ аа +200], 


где й = еш ‚ 2т — число точек деления интервала интегрирования. 
Приведем программу на ФОРТРАНе, предназначенную для интегри- 
рования функции 

у = Г(х) 


по методу Симпсона на интервале (а, 6). Данные а, Ё, т (обозначим 
их идентификаторами А, В, М) отперфорированы и вводятся с устрой- 
ства с номером 2. Результат в виде «Ј = (значение интеграла)» должен 
быть выдан на устройство с номером 1. 

В программе будет использована внешняя процедура-функция, 
предназначенная для вычисления значений подынтегральной функции 
7 (х) (обозначим ее идентификатором Е, а ее аргумент — формальный 
параметр — идентификатором Х). 

Программа численного интегрирования по методу Симпсона: 


БЕАІ Ј 
ВЕАР (2,4)А,В,М 

4 ЕОВМАТ (2Е10.3,16) 
АМ=М 
Н=(В—А)/2./АМ 
7=Р(А)--Е(В)--4 «Е(В—Н) 
МІ=М—1 


рО 5 К=1,МІ 
АК=К 
5 =] 4 -Е(А-+ (2.-АК—1.)*Н)-2.-Е(А--2.«АК»Н) 
3.+Н 


—— 


\ИВТТЕ (1,7) 
7 ЕОВМАТ (5Х,4НЈ, ‚=, „Е15.6) 
ЅТОР 


ЕМ№Ю | 
РОМСТІОМ Е(Х) 


о чорто". е, гечә. е0 


Задание. 1. Объясните, почему в операторе с меткой 5 исполь- 
зуется не целая константа, а вещественная (2.). | 

2. Объясните, для какой цели в программу введена переменная МІ, 
переменная АК? 
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3. Назовите допустимые перестановки операторов в программе, 
не нарушающие ее смысла. | 
4. Чем является в данной программной единице конструкция 


В—Н, 
конструкции 
Е(А),Е(В),Е(В—Н),Е(А —-2.«АК»Н) 
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Приведенная в предыдущей порции программа (главная програм- 
мная единица) рассчитана на использование совместно с программной 
единицей, представляющей собой описание внешней вешественной 
функции Е с одним вещественным параметром и определяющей зна- 
чение подынтегральной функции. а 

Так, например, для интегрирования функции 


1 
Г (х) = и 


(на интервале а < х < 6 с заданным числом делений этого интервала 
2т) необходимо в выполняемую программу, помимо главной програм- 
мы, включить следующую внешнюю функцию: 


ЕОМСТІОМ Е(Х) 
Е-=1./ЗОРТ(1.--Ха»З) 
ВЕТОВМ№ 

ЕМ” 


Задание. Какие изменения должны быть внесены в главную 
программу, приведенную в предыдущей порции, если процедура 
вычисления значений функции Е(Х) будет задана в виде подпрограм- 
мы, описанной посредством двух формальных параметров: Х и У; 
Х — аргумент, У —- значение функции? 
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Методика конструирования программ 
из программных единиц (продолжение) 


Из изложенного ясна методика использования готовых програм- 
мных единиц: согласуя фактические и формальные параметры (как это 
сделано в приведенном примере), а также переменные общих блоков, 
мы можем подключать в выполняемую программу те или иные про- 
цедуры, заменять одни процедуры другими. 
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Если программная единица не рассчитана на использование в вы- 
полняемых программах наряду с другими подлежащими замене про- 
граммными единицами, то более экономным в сравнении с внешними 
функциями в смысле затраты времени на трансляцию, а также выпол- 
нения рабочих программ является использование в тех случаях, где 
это возможно, операторных функций. 

Так, в рассмотренном нами примере интегрирования функций по 
методу Симпсона можно ограничиться использованием приведенной 
программы. (главной программной единицы), вставив в нее оператор- 
ную функцию 


Е(Х)=1./59КТ(1.-- Хә) 


и тем самым освободившись от обращения к внешней функции для вы- 
числения значений подынтегральной функции. 

Задание. Укажите место в главной программе, в которое долж- 
на быть помещена операторная функция Е (Х). 
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Методика конструирования программ 
из программных единиц (продолжение) 


Иногда описанный в предыдущей порции прием удается использо- 
вать и в случае более сложного задания функций. 
Пример 2. 
Составить программу для интегрирования функции 
1 


Е для. 0 <х< 2; 
(х) = 
ү тА дла 


на интервале 0 < х < 4, используя аппарат: 

а) внешних функций, 

б) операторных функций. 

Решение. 

а) Используем главную программу, приведенную в примере р. 
С этой целью необходимо в выполняемую программу, помимо данной 
главной программы, включить описание внешней функции, которое 
может быть представлено в виде: 


ЕОМСТІОМ Е(Х) 
К—Х/9.- 1. 
СО ТО (3,12,12),К 

3 Е=1./50ВТ(1.-- Ха 3) 
ВЕТОВМ 
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12 Е=506Т((1.+-Х*Х)/(Х«Х—-1.)) 
КЕТОКМ | 
ЕМО 
6) Обратив внимание на то, что интервалы, на которых задана 
функпия разными аналитическими выражениями, равны между собой, 
и учитывая свойство аддитивности определенных интегралов | 


р с р 
Род ах = | Ро) ах + (ро) ах, 


представим искомый интеграл в виде: 


4 2 4 
Т. 4х 14 х2 
а а +, х? — | ах. 


0 


Сделав замену переменной интегрирования во втором из полученных 
интегралов 


Е 
получим: 
4 2 2 
ИЕН ее 1 ((-- 2)? ух НИ аа 
у СЕЕП КЕЕ а У и = 


2 
ЗЧ 22228 МЕ 
Е а х? - 4х + З 
е | 
(последнее преобразование произведено на основании независимости 
определенного интеграла от переменной интегрирования). Таким об- 
разом, задача сведена к вычислению интеграла: 


ә 


Р Е | / х2 4х 4-5 
ЫЕЕЕ Е ЕЕ. 

Для завершения поставленной задачи остается включить в ранее 
приведенную программу (главную программу) интегрирования функ- 
ций по методу Симпсона операторную функцию: | 
Р(Х) = 1./50КТ(І. Хж*3) --$ОВТ((Х=Х --4.*Х --5.)/(Х+Х--4.*Х 4-3.) 


Задание. 1. Какие значения принимает переменная К, опре- 
деляемая оператором присвоения 


К=Х/2.--1. 


(см. описание внешней функции Е(Х), приведенное в данной порции), 
когда Х изменяется в промежутке 0 < Х < 4? 
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9. Нельзя ли заменить в приведенном в задании 1 операторе кон- 
станты соответствующими константами целого типа? 

3. С какой целью в теле функции Е(Х) в операторе СО ТО указаны 
две одинаковые метки? 

4. Нельзя ли в описании функции Е(Х) воспользоваться одним 
оператором ВЕТОК №? 
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Методика конструирования программ 
из программных единиц (продолжение) 


Пример 3. 

Составим описание процедуры-функции СМР, предназначенной 
для интегрирования функций по методу Симпсона и описанной с по- 
мощью трех формальных параметров: 

А — нижний предел интегрирования (идентификатор веществен- 

ной переменной), 

В — верхний предел интегрирования (идентификатор веществен- 

ной переменной), | 

М — целая переменная, 2«М — число делений интервала интег- 

рирования. 
Обращение к вычислению значений интегрируемой функции в теле 
процедуры СІМР будет осуществляться посредством использования 
указателя внешней функции Е (вещественного типа), описанной по- 
средством одного формального параметра Х — переменной интегри- 
рования (вещественного типа). Таким образом, в главной программе 
будут определяться пределы интегрирования и число делений интер- 
вала интегрирования, замена же функции интегрирования при необ- 
ходимости интегрирования другой функции будет осуществляться 
посредством замены программной единицы — внешней функции, за ко- 
торой будет сохраняться идентификатор Г. 
Описание процедуры-функции СІМР: 


ЕОМСТЮМ СМР (А,В,М) 
АМ=М 

Н=(В—А)/2./АМ 
СОМР=Е(А)-+Е(В)--4..Е(В—Н) 


КМ Ем 1. 
ро 5 К=1,КМ 
АК=К 


5 @МР=КМР--4.+Е(А-- (.-АК—1.)*Н)-Е2.*Е(А--2.«АК»Н) 
СМР=СМР/З.*Н 
ВЕТОВМ 
ЕМО 


Задание. Опишите приведенную в данной порции процедуру 
в виде внешней функции с одним параметром А, полагая, что: 

а) Ви М определяются как идентификаторы переменных, принад- 
лежащих общему блоку; 

6) В и М — фиксированные константы: В = 10.0; М — 200. . 
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Методика конструирования программ 
из программных единиц (продолжение) 


Пример 4. 

Воспользуемся приведенной в предыдущем примере процедурой 
для составления программы вычисления объема тела вращения, полу- 
чаемого при вращении вокруг оси ОХ отрезка кривой у == } (х), а < 
< х< 6, где 7 (х) — некоторая функция, алгоритм вычисления зна: 
чений которой предполагается заданным в виде вещественной про- 
цедуры-функции с идентификатором ЕІ и одним формальным парамет- 
ром вещественного типа (обозначим его через Х). 

Объем тела вращения выражается формулой: 

Ь 


7 = п | (0) ах. 


_В предположении наличия описаний двух внешних функций СМР 
и РІ необходимая программа может быть представлена в виде: 


ВЕАІ. Ј 
ВЕЛО (2,4)А,В,М 
4 РОВМАТ (2Е10.3,16) 
Ј=СІМР (А,В,М)3.1416 
\РТТЕ (1,7)Ј 
ЕОВМАТ (5Х,4НЈ, =, ,,Е15.6) 
$ТОР 
‚ ЕМР 
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РОМСТТОМ Е(Х) 

Е=Е1(Х)*=2 

КЕТОКМ 

ЕМО 

ЕОМСТІОМ Е1(7) 

РЕ = (выражение для вычисления значения } (х)) 
ЕМЮ 


ө. соборе оу 


‚ 215 


Таким образом, главная программа обращается к процедуре СМР 
за вычислением интеграла, умножает его значение на л и выдает 
полученный результат на печать. Процедура СІМР обращается к про- 
педуре Е за значением подынтегрального выражения [7 (х)12, а про- 
цедура Е, в свою очередь, обращается за значением заданной функции 
Ў (х) к соответствующей процедуре ЕІ. | 

Замена пределов интегрирования требует замены соответствующей 
перфокарты на вводе; то же касается замены числа делений интерва- 
ла интегрирования. Замена функции / (х) требует замены соответст- 
вующей программной единицы ЕОМСТІОМ ЕІ. 

Задание. 1. Укажите допустимые. перестановки операторов 
и программных единиц в приведенной программе, не искажающие ее 
смысла. | 
9. Какие из использованных идентификаторов в операторах, от- 
личных от операторов ввода-вывода, могут быть заменены другими 
без. изменения смысла программы? 
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Пример 5. | 

Воспользуемся процедурами, рассмотренными в предыдущем при- 
мере, для построения программы, в которой вычисляются объемы тел 
вращения, получаемые при вращении одной и той же кривой, но огра- 
ниченной несколькими разными нижними ‘и верхними пределами 
значений переменной Х. Допустим, что таких объемов требуется вы- 
числить 20. 

Предположим, что на первой перфокарте отперфорировано число 
М, на каждой из следующих десяти перфокарт — пары чисел А, и В, 
Е, 20) 

Получаемые значения объемов разместим в массиве М1, который 
в конце главной программы выдадим на печать. 

Приведем лишь описание главной программы; описания же всех 
используемых в данной выполняемой программе программных единиц 
мы укажем лишь схематически. | 


ВЕАЕ М! 
РІМЕМЅІОМ М1(20),А(20),В(20) 
ВЕАР (9,4)М,(А(1),В(1),1=1,20) 
4 ЕОВМАТ (15/(2Е10.3)) 
РО 1 1=1,20 
1 М1(1) =3.1416*СІМРС(А(І),В(1),М) 
\УЕТТЕ (1,7)МІ 
2 ЕОВМАТ (5Х,Е15.6) 
ТОР | 


916 ·. 


ЕМО 
РОМСТІОМ СІМРСА,В м) 


РОМСТОМ Е(Х) 
Е=Е(Х)**2 
`’ КЕТОКМ 
ЕМ” 
 ЕОМСТІОМ ЕКХ) 
БІ = (выражение для вычисления Е (х)) 
КЕТОКМ | 
ЕЮ | 


Замечание. Легко видеть, что, заменив процедуру вычисления функции 
Е1(х) процедурой вычисления ее ‘квадрата, можно вместо двух послед- 
них функций ограничиться одной: 


ЕОМСТІОМ Е(Х) 

Е = (выражение для вычисления (Е (х))?) 
КЕТОЮМ 

ЕМ” 


Задание. 1. Предполагая, что данные на вводе представлены 
так, как это было указано при описании рассмотренного в данной пор- 
ции примера, запишите оператор ВЕАР” без списка типа цикл. 

2. Назовите синтаксические типы конструкций, использованных 
в упомянутой программе: 


а) М1(1) =3.1416*СІМР(А(1),В(1),М) 
6) МКТ) 
в) 3.1416 
г) ПМР. ВОТ), М). 
_д) (А(1),В(1),М) 
е) М 
ж) І 
з) ЕОМСТІОМ СІМР(А,В,М) 
и) (А,В,М) 
к) ЕМ” 
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Пример 6. 
Недостатком предыдущей программы является невозможность ее 
использования в одной и той же программе для вычисления объемов 
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нескольких тел вращения, получаемых при вращении различных кри- 
вых, заданных разными функциями. 

Действительно, при переходе от одной к другой такой функции 
необходимо осуществить замену описания соответствующей внешней 
функции ЕІ, т. е. изменить компоновку выполняемой программы из 
программных единиц. 

Недостаток подобного рода может быть устранен посредством 
включения в список формальных параметров процедуры СМР интег- 
рирования функпий, обозначим ее теперь идентификатором СІМР2, 
еще одного параметра, соответствующего используемой в ее теле внеш- 
ней функции Е. Пополняя выполняемую программу всем набором не- 
обходимых внешних функций и указывая при обращении к процедуре 
интегрирования не только пределы интегрирования (и число делений 


интервала интегрирования), но и соответствующий идентификатор . 


той или иной из этих функций, мы получаем возможность вычисления 
в основной программе объемов тел вращения кривых, заданных разны- 
ми функциями. | 

Ограничимся рассмотрением лишь схемы выполняемой программы 
для случая, когда в главной программе вычисляются объемы двух 
тел вращения, описанных соответственно графиками кривых ГІ и Е2. 
Пределами для переменной Х для этих кривых являются величины Аі 
и А2, ВІ и В2, соответственно. В обоих случаях полагаем заданными 
соответственно целые значения МІ и М2, определяющие число точек 
деления интервалов интегрирования. 

При составлении настоящей программы мы воспользуемся упро- 
щением, о котором речь шла в примечании к предыдущему примеру. 


ЕХТЕВМАІ. Е1,Е° 
ВЕАР” (2,4) М1,А1,В1,М2,А2,В2 
4 ЕОВМАТ (15,2Е10.3) 
АМІ=3.1416:СІМР(АІ,ВІ,МІ,Е1) 
АМ9=3.1416:СІМРӘ(А?,В?,М9,Е9) 
\УРТТЕ (1,7)АМІ,АМӘ . 
7 ЕОВМАТ (5Х,5НУІ, ‚=, ,,Е9.4,5Х,5НУ, у=, ,Е9.4) 
ТОР 
ЕМХР 
ЕОМСТІОМ СІМР(А,В,М,Б) 
АМ=М 
Н==(В—А)/2./АМ 
СІМРр?Е(А)--Е(В)--4.*Е(В—Н) 
ІМ=-М--1 
ро 5 К=1М 
АК=К | 
5 СІМР2-=СІМР?4-4.+Е(А4- (2. -АК—1.)*Н)--2.«Е(А--2.АК«Н) 
СІМР2:==СІМР?/3. 
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КЕТОЮМ 

ЕМО | 

ЕОМСТІОМ№ ЕІ(Х 

Е| = (выражение для вычисления 1}, (х)?) 
КЕТОВМ 

ЕМ” 

ЕОМСТІОМ ЕӘ(Х) 

Е2 = (выражение для вычисления 1}, (ХР) 
КЕТОВМ | 

ЕМО 


Задание. 1. Является ли обязательным в приведенной про- 
грамме оператор ЕХТЕКМАГ ЕІ, Е2? Чем вызвано отсутствие этого 
оператора в аналогичных программах, рассмотренных в предыдущих 
порциях? 

2. Воспользуйтесь процедурой СІМР2 и составьте программу для 
вычисления площади поверхности вращения линии у = Ё (х), огра- 
ниченной ординатами Х = А, Х = В, вокруг оси ОХ; площадь по- 
верхности вращения вычисляется по формуле: 


В 
О = 2л (РО) ИТР)? ах 
А 
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Пример 7. 

Используя процедуру СІМР2, составленную в примере 6, составим 
программу для вычисления координат центра тяжести криволинейной 
трапеции, ограниченной осью ОХ, прямыми х = А, х = В и графи- 
ком кривой у = Ё (х). Искомые координаты центра тяжести вычи- 
сляются по формулам: 


в в 

| х2 (х) ах РР ах 
Ел - ? ИЕ а | 

| Р) ах 26 4х 

Д А 


Описание внешней функции Е, предназначенной для вычисления 
значений функции у = Ё (х), предполагается заданным. Как и в 
предыдущих примерах, значения А, В, М задаются оператором ввода; 
результаты вычислений выдаются на печать. 
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Рассмотрим два варианта программы: 

а) При вычислении подынтегральных функций интегралов, входя- 
щих в числители выражений координат центра тяжести, осуществля- 
‘ется обращение к процедуре вычисления значения функции Р(Х). 


б) Задаются три процедуры-функции соответственно для вычисле- 
ния значений функций 


Е(Х), Х-Е(Х), [Е(Х)Ј, 


Вариант а) 

Для возможности передачи процедуре СІМР2 информации о спо- 
собе вычисления подынтегральной функции в число ее параметров 
включен формальный параметр Е. Фактическими параметрами, кото- 
рые будут ставиться в соответствие этому параметру, будут идентифи- 
каторы внешних функций (обозначим их соответственно ТІ, Т2, Т3): 


Т1=Е(Х) 
070) 
ТЗ=1Е(Х)): 


Последние две из них будут включать обращения к первой. 


ВЕАІ, КЅІ,ЕТА 
ЕХТЕВМАТ, Т1,Т9,Т3 
ВЕАР” (2,4) М,А,В 

4 ЕОВМАТ (15,2Е10.3) 
К1—СІМР(А,В,М,Т9)/СІМР(А,В,М,Т1) 
ЕТА =СІМР(А,В,М,ТЗ)/СІМРА(А,В,М,Т1) 
\УРТТЕ (1,7)К51,ЕТА = 

7 ЕОРМАТ (5Х,4НК$1=,Е9.4,5Х 4НЕТА=.,Е9.4) 
ЅТОР 


ЕМРЮ 
ЕОМСТІОМ ТІ(Х) 
ТІ = (выражение для вычисления Е (х)) 
РЕТОВМ | 
ЕМО 
РОМСТТОМ Т2(Х) 
12=тиХ)тХ 
КЕТОКМ 
7-9 МО 
ЕОМСТЮМ ТЗ(Х) 
Тз=ТІ(Х)»2 
ВЕТОВМ 
ЕМО 
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Вариант б) 

Этот вариант программы будет отличаться от предыдущего лишь 
описаниями внешних функций Т2 и ТЗ, приведением которых мы здесь 
и ограничимся: 


ЕОМСТІОМ Т2(Х) 
Т2 = (выражение для вычисления произведения х + Е (х) 
КЕТОВМ 
ЕМО 
ЕОМСТІОМ ТЗ(Х) 
З = (выражение для вычисления квадрата функции Е (х)) 
КЕТОЮМ 
ЕМО 


Чтобы подчеркнуть различие описаний функций Т2, ТЗ в вариан- 
тах а) и 6), запишем их конкретные выражения в случае, когда 
1 


Та 


Вариант а) 


РОМСТ!ОМ ТІ(Х) 
11 = 50а) 
РЕТОЕМ 
ЕМО 
ЕОМСТІОМ Т5(Х) 
Т2=Т1(Х)*Х 
ВЕТОЕМ 
ЕМО 
ЕОМСТІОМ ТЗ(Х) 
Т3=тТ1(Х)**2 

_ ВЕТОВМ 
ЕМР 


Вариант 6) | 
Выражение для ТІ (Х) то же, что и в варианте а). 
ЕОМСТІОМ Т2(Х) 

Т2=хХ/ЗОВТ(1.-- ХЗ) 

КЕТОВМ 

ЕМО 

ЕОМСТІОМ ТЗ(Х) 

Т3=1./(1.-- Х3) 

РЕТОРВМ 

ЕМО 


Задание. 1. Воспользуйтесь процедурой С1МР2 и составьте 
программу для вычисления длины четверти дуги эллипса, заданного 
уравнением 


х? у? 
аа 


Длина дуги Г, кривой у = р (х), ограниченной прямыми х = а, х = р, 
вычисляется по формуле: 


2) 
= } УТЕС 09) 


9. Воспользуйтесь процедурой-функцией СІМР2 и составьте про- 
грамму для вычисления объема тела вращения, получаемого при вра- 
щении вокруг оси ОХ отрезка кривой у = } (х), 0 < х < 1, где ѓ (х) = 
== сіп? х. 
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Пример 8. 

Рассмотрим в качестве примера алгоритм решения алгебраическо- 
го или трансцендентного уравнения методом половинного деления. 

Если функция у = Ё (х) непрерывна на отрезке [2, 6] и на его кон- 
пах имеет противоположные знаки, то на [а, 6] она имеет по меньшей 
мере один вещественный корень. Если при этом Е (х) имеет знако- 
постоянную производную, то этот корень — единственный. 

Составим программу нахождения корня уравнения Ё (х) = 0 на 
интервале [а, 6] в предположении наличия на нем единственного корня. 

Примем следующую схему работы алгоритма. Пусть Е (х) имеет 
разные знаки на концах интервала а и 6. 

1. Полагаем хо = а, Ху = Ё 


ра 526 
2. Вычисляем х= заа 


3. Проверяем условие 
| ЕО) = 225: 


При выполнении этого условия принимаем х в качестве искомого 
корня и печатаем его, на чем программа завершает свою работу. Если 
указанное условие не выполнено, переходим к п. 4. 

4. Проверяем условие 


Е (х) - Е (%) >09. 


При выполнении последнего условия. полагаем ху = х и переходим 
кп. 2, в противном случае полагаем х; = х и также переходим кп. 2. 
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Нетрудно заметить, что описанный рекуррентный процесё при ука- 
занных условиях является сходящимся. | 

В предположении, что процедура вычисления значения заданной 
функции Ё (х) может быть задана в виде операторной функции, инте- 
ресующий нас алгоритм можно представить в виде: 


Е(Х)= (выражение для вычисления функции от Х) 


КЕАР (2,1)ХО,ХІ1,ЕРЅ 

1 РОКМАТ (2ҒЕ10.4,Е8.6) 

5 Х=(Х04-Х1)/9. 
ТЕ(АВ$(Е(Х)).Г.Т.ЕРЗ)СО ТО 6 
ІЕ(Е(Х)*Е(Х0))2,9,4 

их 


СО ТО 10 
4 ХОХ 
10 К=К-1 
СО ТО 5 
6 МРІТЕ (9,7)Х,К 
7 ЕОВМАТ (5Х,Е19.5,14) 
ЅТОР 
ЕМО 


Задание. Составьте программу вычисления изолированного 
корня уравнения функции Ё (х) = 0 на отрезке [а, 5] методом пропор- 
пиональных частей (хорд). Схема этого метода отличается от схемы 
метода половинного деления лишь пунктом 2, вычислительная форму- 
ла для которого в данном случае имеет вид: 


№: Ре) — м (хо) 
Е (х1) — Е (х) 
Порция 144 
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Пример 9. — ! 

_ В этой порции мы разберем пример использования подпрограммы 

без параметров. Для этого рассмотрим фрагмент программы, в кото- 

ром используется процедура вычисления очередного члена ряда Фибо- 

наччи. (Рядом Фибоначчи называется последовательность чисел 27 

3, 5, 8, 13 ит. д., в которой каждый член, кроме первых двух, являет- 
ся суммой двух предыдущих). 

Пусть подпрограмма, которую обозначим идентификатором ЕВ, 
вычисляет по двум предыдущим членам ряда Фибоначчи очередной 
член этого ряда, который используется в вызывающей программной 
единице. Поскольку получаемый член и непосредственно предшест- 
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вующий ему нужны для вычисления следующего очередного члена, 
эти две величины должны сохраняться от одного обращения к под- 
программе ЕІВ к следующему. Это может быть достигнуто посредством 
использования общего блока памяти для вызывающей программной 
единицы и данной подпрограммы ЕВ. 

Для обозначения двух последних членов ряда выберем идентифи- 
каторы 11 и 12. 

Присвоение начальных значений этим переменным (Т1 = 12 = П 
может быть осуществлено посредством оператора: ВАТА: ИТ 
в сопрограмме ВГОСК РАТА (напоминаем, что присвоить начальные 
данные переменным 11 и 12 оператором: РАТА в главной программе 
или подпрограмме ЕІВ нельзя, так как эти переменные нами включены 
в блок СОММОМ). Сопрограмма ВОСК РАТА может быть записана 
в виде | 

ВОСК РАТА 
СОММОМ/ВЛ1,12 
РАТА 11,[2/1,1/ 
ЕМО 
Здесь общий блок данных обозначен идентификатором В. Таким об- 
разом, помимо программной единицы, вызывающей подпрограмму 
ЕВ, и самой этой подпрограммы РІВ, в выполняемую программу долж" 
на быть включена приведенная сопрограмма данных. | 

Вызываемая процедура, в которой в операторе СОММОМ должны 
быть указаны идентификаторы последних членов ряда Фибоначчи, 
может быть записана в виде: у | 


ЗОВВОПТМЕ [В 
СОММОМ /В/11,12 
[.=12 
[2=11--12 
И =. 
КЕТОКМ 
ЕМО 
Задание. 1. Можно ли, отказавшись от сопрограммы ВГОСК 
РАТА в приведенном в данной порции примере, получить тот же ре- 
‚ зультат, включив в Подпрограмму ЕІВ соответствующие операторы 
присвоения? 
9. Используя приведенную в данной порции подпрограмму ЕВ, 
составьте программу для вычисления и выдачи на печать в виде таб- 
лицы следующей последовательности величин: 


Едо И 
= (= 1,2,7... #20) 
Х Р 
[== 
где через Ё, обозначен і-й член ряда Фибоначчи. 
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3. Предположим, что программная единица, вызывающая подпро- 
грамму ЕВ, содержит операторы: 


МТЕОСЕК О,У 
СОММОМ/В/О, У 


Может ли эта программная единица при каждом очередном обраще- 
нии к подпрограмме Е1В получать от нее очередной член ряда Фибо- 
наччи, если она содержит также оператор 


\М=\У—2*0 
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из программных единиц (продолжение) 


Пример 10. 

Поставим вопрос о том, каким изменениям должна быть подверг- 
нута приведенная в предыдущей порции подпрограмма Е1В для пре- 
вращения ее во внешнюю функцию (которую мы обозначим идентифи- 
катором ЕІВО). | | 

Прежде всего заметим, что определяемая нами функция будет вы- 
давать результат целого типа, поэтому первый оператор ее тела дол- 
жен содержать спецификатор ПУТЕСЕК для явного указания типа 
идентификатора ЕВО. 

Согласно определения понятия внешней функции, результат обра- 
щения к ней должен передаваться ее идентификатору. Поэтому вместо 
идентификатора 12 нами будет использован идентификатор ЕІВО. 

Поскольку ‘синтаксис языка требует наличия по крайней мере од- 
ного формального параметра в определении любой функции, в каче- 
стве последних естественно взять два предыдущие члена ряда Фибо- 
наччи, обозначаемые, как и в подпрограмме ЕІВ, идентификаторами 
П и 12, поскольку процедура Фибоначчи для получения очередного 
члена по существу использует два параметра — два предыдущих члена 
ряда. При этом процедура ЕІВО не только должна получать через 
свои параметры 11, 12 предыдущие члены ряда, но и выдавать через 
них же (помимо выдачи результата через идентификатор ЕІВО) пре- 
дыдущие члены для обеспечения рекуррентного процесса получения 
членов ряда. Таким образом, получаем следующее описание внешней 
функции ЕІВО, в котором, как это легко заметить, 12 и ЕІВО дубли- 
руют друг друга. 
| ІМТЕСЕВ РОМСТЮМ [ВО (11,12) 

= 12 
12=11--12 
ЕІВО=12 


8 5—1609 | 9506 


И = 
РЕТОВМ 
ЕМр 


Заметим, что для обеспечения рекуррентного процесса получения чле- 
нов ряда Фибоначчи посредством приведенной процедуры ЕІВО не- 
обходимо также, чтобы вызывающая процедура сохраняла значения. 
переменных 11 и 12, начальные значения которых должны быть также 
обеспечены извне процедуры ЕІВО. 

Задание. Выполните задание 2, приведенное в предыдущей 
порции, воспользовавшись при этом описанной в настоящей порции 
внешней функцией ЕІВО. : 


Порция 146 


Методика конструирования программ 
из программных единиц (продолжение) 


Фиксация числа массивов, 
обрабатываемых программными единицами 


Обладая обширным запасом тех или иных изобразительных средств, 
каждый язык программирования требует представления описываемых · 
в нем алгоритмов в терминах именно этого набора средств. Другими 
словами, в любом языке как классы форм представления обрабатывае- 
мых объектов, так и средства обработки ограничены определенными 
рамками. 

Примером подобного рода ограничений в языке ФОРТРАН являет- 
ся недопустимость обработки сложных объектов — массивов разно- 
типных элементов, древовидных структур и др., а также процедур, 
обрабатывающих массивы, число которых является переменным, оп- 
ределяемым в момент обращения к этим пронедурам, т. е. невозмож- 
ность задания массива с регулируемыми размерами, компонентами 
которого были бы в свою очередь массивы (в случае, когда размеры 
массива, компонентами которого являются массивы, являются фи- 
ксированными, можно задачу свести к рассмотрению последователь- 
ности массивов). Необходимость же в рассмотрении подобного рода 
процедур проиллюстрируем на примере. 

Предположим, что в результате выполнения определенной програм- 
мы составляется некоторая фраза, подлежащая выводу и состоящая 
из заданного числа № слов фиксированной длины. Каждое 1-е (1 = 
= 1,9, ..., М) слово формируемой строки извлекается из некоторого 
І-го словаря, содержащего К; слов. Набор индексов слов, образую- 
ших фразу вывода, определяется некоторой программной единицей. 
1ными словами, в результате выполнения программы образуется 
массив Г. (целого типа) | 


а рр 
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каждое 1, (1) лежит в пределах 
1<Ц<К, 


Допустим, требуется составить подпрограмму СТР, формирующую 
по массиву Г. строку вывода. При этом, предполагая число М компо- 
нент (слов), составляющих фразу, переменным, мы встаем перед проб- 
лемой составления подпрограммы, обрабатывающей переменное число 
массивов, что, как было замечено, языком не допускается. 

Однако, поскольку объектом обработки составляемой подпрограм- 
мы в нашем случае является массив Г. (размера №, можно составить 
процедуру, рассчитанную на максимальное число М№„ах (и соответст- 
венно использующую Мн.х массивов — словарей для соответствую- 
щих слов формируемых фраз). Считая, например, что М = 5, а также 
‚ для определенности положив, что словари имеют размеры, указанные 
в операторе СОММОМ (где им присвоены соответственно иденти- 
фикаторы СІ, С2, СЗ, С4, С5), необходимую процедуру рдани 
в виде: 


Ѕ0ВВООТІМЕ СТР.) 
СОММОМ /А/С1(10),С2(20),С3(15),С4(10),С5(20) 
РІМЕМЅІОМ 1.65) 

111.0) 


12=1.(9) 
13=1.(3) 
14=1.(4) 
15=1.(5) 


МЕ1ТЕ (1,3)С1(11),С9(12),С3(13),С4(14),С5(15) 
3 ЕОВМАТ (4Х,5А6) 

ВЕТОВМ 

ЕМО 


Заметим, что для хранения пяти массивов, содержащих указанное 
в программе число элементов, требуется 10 +- 20 + 15 + 10 + 4 = 
== 99 ячеек памяти. Если предположить, что формируемые строки мо- 
гут содержать любые сочетания содержащихся в этих массивах слов, 
можно получить на выводе 10 • 20 · 15. 10 . 4 = 120 000 различных 
фраз. | 
Подобного рода процедура может быть использована при диагнос- 
тике ошибок, осуществляемой трансляторами. При этом, например, 
первым словом в выдаваемой фразе может служить глагол, опреде- 
ляющий тип оператора, содержащего ошибку (МВІТЕ, ВЕАР, А$- 
5ІСМ, СО ТО ит. д.), вторым — код типа ошибки, третьим — номер 
позиции недопустимого символа в операторе и др. 
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Порция 147 
Вывод графиков 


На следующем примере будут проиллюстрированы возможности, 
предоставляемые языком ФОРТРАН для вывода данных, в частности, 
для вывода на печать графиков функций. 

_ Предположим, что в программе вычисляются значения некоторой 
вещественной функции У (Х) с фиксированным по Х шагом, и тре- 
буется выдать график этой функции на печать. 

Допустим, что число позиций в строке вывода равно 120, а выво- 
димые значения функции У принадлежат диапазону Утт = Мк. 
< Утах. Тогда цена Н одного деления (позиции) в строке вывода 
будет определяться соотношением: 

Не е ЗО 
120 4 
График функции будет представлен в виде последовательности строк 
вывода, в каждой из которых размещен в позиции, соответствующей 
значению функции, символ *. Последняя определяется значением 
переменной целого типа К по следующей формуле: 


Е (У Е Уап) 


Предположим, что в одну машинную ячейку помещается 6 симво- 
лов, тогда строка вывода должна быть сформирована из 20 ячеек 
(190 : 6). 

Чтобы поместить символ * в надлежащую позицию строки вывода, 
введем массив текстовых констант: 


А(2) =6Н уж руи 
А(3)=6Н, и ужи 
А(4)=6Н и ууж, 
А(5)=6Н ууз} 
А(6)= 6Н ГЕ ВЫ {ры 


т. е. А(Т) содержит в 1-й позиции символ є, а востальных — пробел 
ТЕЕ РЕЗО У 

Для формирования строки вывода введем массив В, состоящий из 
20 элементов, каждый из которых представляет собой текстовую кон- 
станту, состоящую из шести символов. 

Начальное значение массиву присвоим посредством оператора 


обеспечивающего засылку пробелов во все позиции строки вывода. 


Чтобы поместить символ * в соответствующую позицию выводимой 
строки, необходимо определить индекс М элемента массива В, который 
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покрывает К-ю позицию строки вывода, и индекс М позиции помешае- 
мого в нем символа є. Указанные индексы, как нетрудно убедиться, 
спределяются равенствами: 

М=К/б--1 

М=МОор(К, М—1) 
где МОР — встроенная функция, определяющая остаток от деления 
числа К на число М. г 

Пользуясь массивом констант А и определенными значениями пере- 
менных М и №, для формирования строки вывода остается воспользо- 
ваться операторами: 

_ В(М=А(М) 
‚. МВИЕ (2,3)В 
3 РОБКМАТ (Х3,2046) 
В(М)=С | 

Здесь последний оператор введен для восстановления исходного зна- 
чения массива В; С — переменная, имеющая своим значением кон- 
станту. бН и иран 

Таким образом, · поставленная задача может быть решена путем 
выполнения следующей последовательности операторов (многоточием 
в ней обозначены не интересующие нас участки программы): 


РІМЕМЅІОМ В(20),А(6) 

РАВА ВСН о а АСЕ, Н, ж у} 
Це» ОН жи, ВЫ паре уб ЕЕ, шша 
іи #/ 

(определение очередного значения Х) 

(вычисление У при заданном Х) 

К =(У—УМ1М)/Н 

М=К/б- 1 

М№=МОО(К,МЬ— 1) 

В(М)=А(М) 

\МЕТЕ (2,3)В 

3 ЕОВМАТ (3Х,20А6) 

5 В(М) =С 


ыа Б 


ЕМ” 


Задание. І. Замените определение массива А посредством 
оператора РАТА его определением посредством оператора ввода. Ка- 
кой формат должен быть при этом выбран? 

Обращаем Ваше внимание на то, что, варьируя символ для изобра: 
жения графика, мы получим возможность выводить графики, отме- 
чая на них точки кривой разными символами. е 
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Глава У 


Связи внутри программной единицы 
и между программными единицами 
выполняемой программы 


В данной главе приводится описание соотношений между конст- 
рукциями языка в отдельных программных единицах и между про- 
граммными единицами в выполняемой программе. Сведения, изло- 
женные в этой главе, приводились частично при описании отдельных 
конструкций. Однако в связи с важностью вопроса мы сочли необ- 
ходимым выделить их в отдельную главу. 


Порция 148 
Идентификаторы 


Идентификатор — это слово пользователя, содержащее от одного 
до шести буквенно-цифровых символов и начинающееся с буквы. 

Последовательности символов, выступающие в операторах в роли 
описателей полей (например, А5, 17) или служебных слов (например, 
РЕАО, МЫ ТЕ, [Е ит. д.), не являются идентификаторами и не фор- 
мируют первые символы идентификаторов. Эти же последовательнос- 
ти символов не запрещено употреблять в качестве идентификаторов. 

Формат любого оператора однозначно определяет, является ли дан- 

ая последовательность символов описателем поля, служебным сло- 
вом или словом пользователя — идентификатором некоторого объекта. 

В программной единице идентификатор (возможно с индексами) 
может определять объект одного (и обычно только одного} из следую- 
ших классов: 

Класс 1. Массив и элемент этого массива (т. е. переменная с ин- 

дексами). 

Класс 2. Переменная (т. е. простая переменная). 

Класс 3. Операторная функция. 

Класс 4. Встроенная функция. 

Класс 5. Внешняя функция. 

Класс 6. Подпрограмма. 

Класс 7. Процедура, которая в данной программной единице не 
может быть классифицирована ни как подпрограмма, ни как внешняя 
Функция. 

Класс 8. Наименование блока. 

Поскольку природа объектов всех названных классов, кроме клас- 
са 7, была достаточно полно выяснена в предыдущих главах, остано- 
вимся только на идентификаторах этого класса. 
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Как было ранее установлено, в том случае, когда идентификатор 
некоторой процедуры используется в качестве фактического парамет- 
ра в данной программной единице, он должен быть в ней указан в 
списке одного из операторов ЕХТЕК МАГ. Такое использование той 
или иной процедуры свидетельствует об имеющем место косвенном 
обращении к ней посредством другой (или нескольких других) про- 
граммных единиц. Если при этом в данной (вызывающей} программной 
единице отсутствует непосредственное обращение к указанной про- 
цедуре, то по ее описанию нельзя установить, является ли косвенно 
вызываемая процедура внешней функцией или подпрограммой. 

Поскольку язык ФОРТРАН допускает раздельную трансляцию 
программных единиц, в процессе трансляции программных единиц, 
обладающих указанной особенностью, идентификаторы указанных 
фактических параметров не могут быть отнесены ни к объектам класса 
5, ни класса 6 (хотя по их наличию в операторе ЕХТЕВМАЕ. ясно, 
что они принадлежат к одному из них). Именно такие идентификаторы 
и относятся к объектам, составляющим класс 7. 

Задание. Являются ли следующие последовательности симво- 
лов идентификаторами в языке ФОРТРАН? В каком случае? 
а) РО; б) АК2; в) 1; г) ЕОКМАТ; д) ОІМЕМЅІОМ; е) ЕМО; ж) А2; 
з) А(2); и) 16. | 


Порция 149 


Ограничения на использование 
идентификаторов некоторых классов 


1. Если в данной программной единице идентификатор опреде- 
ляет объект, принадлежащий классу 8, т. е. наименование блока, 
то в той же программной единице он может также быть идентифика- 
тором массива, переменной или встроенной функции (т. е. объектов, 
принадлежащих классам 1, 2 и 3). Например, вполне допустимо ис- 
пользование следующих пар операторов в одной программной единице: 


1) СОММОМ/ВІОСК/Х,Ү,7 
ВІОСК =83.5Ха2 А 

2) СОММОМ/ВЮ/АК (5,5) 

’ ВВ, )=АК(1,2)+-А 

3) СОММОМ/АВЅ/А 12, В 
`В=АВЗ(Х -1.)-+-2.5 


2. В той программной единице, в которой идентификатор объекта 
класса 5, т. е. внешней функции, следует в записи непосредственно 
после служебного слова ЕОМСТІОМ в операторе ЕОМСТІОМ, этот же 
идентификатор должен появиться к качестве идентификатора объекта 
класса 2, т. е. этот идентификатор должен быть использован в качестве 
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идентификатора переменной, стоящей в левой части оператора при- 
своения. Например: 


КЕАІ. ЕОМСТІОМ П. (В,5,Т) 
П.=$К2--В**2 

РЕТОКМ 

ЕМ” 

3. Если в одной из программных единиц некоторой выполняемой 
программы идентификатор определяет объект, принадлежащий клас- 
су 5, 6, 7 или 8, то ни в какой другой программной единице. данной 
выполняемой программы этот идентификатор не может определять 
никакой другой объект того же класса. Например, если идентифика- 
тор А1 является идентификатором внешней функции, то никакая 
другая внешняя функция, используемая в данной выполняемой про- 
грамме, не может быть определена идентификатором А]. 

4. В одной программной единице идентификатор не может опре- 
делять объекты, принадлежащие более чем одному классу. Исклю- 
чение составляют возможности, описанные в пунктах 1 и 2 данной 
порции. Например, следующая последовательность операторов в од: 
ной программной единице недопустима: 


А—2.«В/$Т(1,2). 
ЕМ-А(В,5Т(1,2)) 


ЕМ” 


_ 5. Кроме ограничений, описанных в пункте 3 данной порции, дру- 
гих ограничений на использование ‘идентификаторов. в разных про- 
граммных единицах одной выполняемой программы не накладыва- 


ется. 
Задание. 1. Допустима ли следующая последовательность опе- 


раторов в одной программной единице: 
а) СОММОМ/ВЛ.,К,М 6) К=А(Х,У) в) ЕОМСТЮМ КК,Т). 


т=в(.Ю--Н б9р (307) 11) =Т--$ 


2. Допустима ли следующая последовательность операторов в од- 
ной и той же программной единице: 


а) БВАІ, ЕОМСТЮМ К(Х,У) 9 В=$ЗОВТ(Н»5). 
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3. Определите классы всех идентификаторов, содержащихся в 
главной программе, рассмотренной в примере 7 порции 142. 

4. Задание З выполнить для процедур Т2 и ТЗ того же примера 7. 

5. Может ли быть установлен класс идентификаторов по их нали- 
чию в следующих фрагментах программных единиц? Каков он? Опре- 
делите эти классы для каждого из встречающихся идентификаторов: 


а) СОММОМ/ВЕ/АБ(5,5) г) ЕХТЕВМАТ, А,Х,Ү 


еер мере е ооо сом це фо. Огой е. ле оо “ ев. 2 сено. ос с о о 


ВК(1,2,1)=АБ(1,2)-- А $=Х(Т)--Е(А,У(1.)) 
| ОВ ае 
б) СОММОМ/АВЅ/АІ,С д) КЕАІ. ЕОМСТІОМ ҚІМ(Т) 
С ооз | ЅІМ(Х) =Хаж2 4-А*В 
В=А1(3)--АВ5(С) = Т1=Т--0.1= КТ) 
в) ЕХТЕВМАГ, А.Х, У е) ЕОТМУАГЕМСЕ (А(1,2),С,Х) 
РРО КЕТЧ. ГОСТСАГ, С,Х 


СА, А(А?,АІ) 


Порция 150 


Идентификаторы в операторах спецификаций 
и операторе РАТА 


В языке ФОРТРАН, помимо операторов типа, имеется еще четыре 
оператора спецификаций: РІМЕМЅІОМ, СОММОМ, ЕОЛІҮАТЕМСЕ, 
ЕХТЕКМАГ. В этой порции будут рассмотрены объекты, идентифи- 
каторы которых могут появляться в этих операторах. 

1. Идентификатор определяет объект, принадлежащий классу. 1, 
т. е. массив или элемент массива, в том и только в том случае, если 
этот идентификатор употреблен в описателе массива. Напомним, 
что описатели массивов могут появляться только в операторах специ- 
фикации типа, РІМЕМЅІОМ и СОММОМ. В одной программной еди- 
нице данный идентификатор может появиться в описателе только од- 
ного массива. 

Запись, приведенная ниже, недопустима, так как один и тот же иде- 
нтификатор не может быть использован в описателях разных массивов: 


СОММОМ ВЮ (4,5) 
РІМЕМЅІОМ ВВ (3,22) 


2. Идентификатор в операторе СОММОМ, не являющийся наиме- 
нованием общего блока, определяет объект, принадлежащий классу 1 
или 2 (т. е. массив или переменную), но не классу 5 (т. е. идентифика- 
тор внешней функции не может появиться в списке идентификаторов 
оператора СОММОМ). В одной программной единице данный 
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идентификатор может появиться в операторе СОММОМ только один 
раз. Это значит, что запись вида 


СОММОМ/А/Х,Ү,7(9,9)/В/2(2,2),А,К,Х. 


в языке ФОРТРАН недопустима. 

3. Идентификатор, указанный в операторе ЕОПТУАГЕМСЕ, опре- 
‚ деляет объект, принадлежащий классу 1 или классу 2 (т. е. элемент 
массива или простую переменную), но не может определять объект 
класса 5 (внешнюю функцию). 

4. Идентификаторы объектов, принадлежащих классам 6 или 7, 
не могут появляться в списках переменных в операторах типа. В опе- 
раторе типа в данной программной единице любой идентификатор мо- 
жет появиться только один раз. Следующая последовательность опе- 
раторов в языке ФОРТРАН недопустима: 


ЅОВРООТІМЕ АІРНА или КЕАЁГ ЕОМСТІОМ ТА(М) 
МТЕСЕК АТРНА КЕАІ ТА 


5. Идентификатор, используемый в операторе ЕХТЕКМАТ,, опи- 
сывает объект, принадлежащий классу 5, 6 или 7 (т. е. внешнюю функ- 
цию или подпрограмму). В одной программной единице в операторах 
ЕХТЕКМАТ. идентификатор может появиться только один раз. Сле- 
дующая запись операторов ЕХТЕКМАІ, недопустима: 


ЕХТЕВМАГ. А,В,51\,К,СО5 


ЕХТЕРМАГ А,Б 
ЕХТЕКМАІ К,5,Т 


6. Идентификатор, употребленный в операторе РАТА, описывает 
объект, принадлежащий классу 1 или 2 (но не внешнюю функцию). 
В выполняемой программе начальное значение может быть присвоено 
единице памяти только один раз. 

Задание. 1. Идентификаторы каких объектов могут появиться 
в операторе СОММОМ№М? ЕООЛУАТЕМСЕ? | 

2. Допустимы ли следующие последовательности операторов: 


а) СОММОМ/Х!/Х1,У1,21 6) ЕОМСТЮМ ЅҚА) 
У СОММОМ/В/Х,У ‚31,52 


3. Допустимы ли следующие последовательности операторов: 


ИЛИ 


а) 
ЕОПЛУАГЕМСЕ(И 12,13) 
РАТА 11,Х,9/1,2.,0/ 
а 
ЕОГЛУАТЕМСЕ(А,В,С) 
"РАТА А,С/2.9,3.3/ 


‚ 234 


в) РІМЕМЅЮМ К(3),1(20) 
"РАТА К(9),11)/2,0/ 
ІМТЕСЕВ $ 

РАТА $,К(1),К(2)/3=5/ 


Порция 151 
Объекты, описываемые идентификаторами 


Массив и элемент массива 


В любой программной единице за идентификатором массива всегда 
должен следовать заключенный в скобки список индексов. Исключение 
составляют случаи, когда идентификатор массива встречается: 

1. В списке оператора ввода-вывода. 

2. В списке формальных параметров. 

3. В списке фактических параметров при обращении к внешней 
процедуре. 

4. В операторе СОММОМ. 

5. В операторе спецификации типа. 

При этом следует иметь в виду, что во всех перечисленных случаях, 
кроме второго, идентификатор массива может встречаться также и с 
последующим списком индексов. 

Формальный параметр может быть идентификатором массива толь- 
ко в том случае, когда соответствующий ему фактический параметр 
в обращении к этой внешней процедуре является идентификатором 
массива или идентификатором элемента массива. В последнем случае 
длина массива, идентифицируемого формальным параметром, должна 
быть не больше длины массива, идентифицируемого соответствующим 
фактическим параметром. Пример правильного соотношения разме- 
ров массивов, являющихся формальными и фактическими параметра- 
МИ: 


Вызывающая. программная Подпрограммы 
единица 
т н Е А ЅОВКООТІМЕ А(К,Ю) 
РІМЕМ№ІОМ В(7,7),С(7,7) РрІМЕМЅІОМ В(40) 
СА. А(Ј,В) П И ПР: аерыр 
арна РЕТОВМ 
САШ. Е(С,Б) ЕМО 
А а ЗОВВООТИМЕ Е(Х,Ү) 
ЕМР РІМЕМІОМ Х(т,5) 
ене е ет ено Чеге четте є № 
РЕТОВМ 
ЕМО 


Соотношение размеров массивов в вызывающей и вызываемой про- 
граммных единицах, приведенное в следующем примере, противоречит 
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правилам языка, так как размеры массива АК в подпрограмме јо, 
превышают размеры массива, идентифицируемого фактическим па- 
раметром: 


Вызывающая программная Подпрограмма 
единица | 
О ОИ ЗОВВОЧТШМЕ В(К,АҚ) 
РрІМЕМЅІОМ В(7,7) рІМЕМЅІОМ АК(50) 
ЕАГТ, В(,В) АЕ И 
ких. КЕТОКМ 
ЕМО ЕМО 
^ Если фактический параметр является идентификатором элемента 
массива, длина массива, идентифицируемого формальным параметром, 
не должна превышать размера той части фактического массива, кото- 
рая начинается данным элементом и завершается последним из них, 
считая эти элементы в порядке возрастания приведенного индекса 
массива, т. е. должна быть меньше или равна длине массива, иденти- 
фикатор которого употреблен в фактическом параметре, плюс единица, 
минус значение приведенного индекса этого элемента массива. На- 
пример, если фактическим параметром при обращении к подпрограмме 
КАМ является идентификатор элемента массива Р2Р(5) и массив Р2Р 
содержит 10 элементов, то размер массива Н?Н, идентифицируемого 
соответствующим формальным параметром подпрограммы КАМ, дол- 
жен быть не более 10 + 1—5 = 6. | | 
_ Размер массива, идентифицируемого формальным параметром, 
может быть фиксированным и заданным в этом случае константами 
или может определяться в вызывающей программной единице и пере- 
даваться через соответствующий параметр во внешнюю процедуру. 
Если индекс элемента массива, являющегося фактическим парамет- 
ром, задан константой, то фактический параметр, определяющий раз- 
мер массива в процедуре, тоже может быть задан константой, значе- 
ние которой, как было отмечено выше, не может превосходить вели- 
чину К, где 


К=№М№+ 1—1 


Здесь М — размер массива, идентифицируемого фактическим пара- 
метром в вызывающей программной единице; 
І. — приведенный индекс элемента массива, являющегося фак- 
тическим параметром. 
Рассмотрим следующий пример: 


Вызывающая программная Подпрограмма 
единица 


а ЅОВВООТІМЕ РЭ(В, №) 
РІМЕМЅОМ А(20) РІМЕМЅІОМ В(М№) 
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В ва ое В Л С ае И ИМС 


ое иса: М ВТТЕ(1,7)В 
СА. `Р2(А(3),6) 7 РОКМАТ(ЕТО.3) 
В РВ О 
ЕМ№Р 


В приведенном примере при первом обращении к подпрограмме 
Р2 формальный параметр М получит значение 11, т. е. второй оператор 
подпрограммы будет эквивалентен оператору 


Г1МЕМЗЮМ В(11) 


и одним из результатов выполнения подпрограммы Р2 будет печать 
значений одиннадцати элементов массива А, начиная с десятого эле- 
мента. При втором обращении к указанной подпрограмме М получит 
значение 6 и будут напечатаны значения шести элементов массива А, 
начиная с третьего. ЧЕ = | | 

Если же индекс элемента массива, являющегося фактическим па- 
раметром при обращении к подпрограмме, задан переменной (или со- 
держит переменную), то фактический параметр, определяющий раз- 
мерность массива в вызываемой процедуре, удобнее задавать также 
переменной. Значение этой переменной, как, впрочем, и значение ин- 
декса, должно быть определено к моменту обращения к подпрограмме 
(и вычисляется по приведенной выше формуле). Ниже приведен при- 
мер, иллюстрирующий возможности передачи размерности массивов 
в вызываемую подпрограмму: 


Вызывающая программная Подпрограмма 
единица | 


они ЅОВКООТІМЕ Р2(В,М) 
РІМЕМ№ЅІОМ А(20) РІМЕМЅІОМ В(М№) 


ДЕРТ Ү/ЕІТЕ(1,7)В 
5072290 01-1 7 РОКМАТ(Е10.3) 


ет се се Обе есеге уе т мо тн ке ао оно. ро о: лотос оа е 


ак ЕКО 
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Элементы массива АР АР (1) | АР (2) [АР (3) [АР (4) | АР (5) [го ма №®|_ (6) | АР (7) | АР (8) 
Элементы массива ВР | | 2 З | ВР (1) | ВР (2) 
Единицы памяти і +11142 [1+8 [144011405 1146 |147 


При выполнении вызывающей программной единицы до первого 
обращения к подпрограмме Р2 вычисляется значение индекса 1 и пере- 
менной Ј, определяющей размеры массива вызываемой подпрограммы 
(массива В); при каждом обращении к указанной подпрограмме эти 
индексы переопределяются. Ограничения на размеры массива В, ис- 
пользуемого в вызываемой подпрограмме (идентификатор этого мас- 
сива является формальным параметром), накладываются в связи со 
следующими обстоятельствами. Дело в том, что для элементов мас- 
сивов, используемых в вызываемых программных единицах, отдельная 
память не отводится, если идентификаторы этих массивов являются 
формальными параметрами этих процедур. При вызове процедур дей- 
ствия над элементами таких массивов выполняются на тех полях па- 
мяти,. которые занимают соответствующие массивы вызывающей про- 
граммы, т. е. как бы объявляется эквивалентность определенных эле- 
ментов этих. двух массивов. Причем, если фактическим параметром 
является идентификатор элемента массива, то этому элементу ставится 
в соответствие первый элемент вызываемого массива. Ниже на при- 
мере показан механизм совмещения в памяти элементов вызывающего 
и вызываемого массивов. 

‚ Предположим, что фактическим параметром процедуры является 
‘седьмой элемент массива АР, содержащего 20 элементов. При вызове 
подпрограммы, формальным параметром которой является идентифи- 
катор массива ВР, память будет распределена, как указано в 
таблице. 

Из этого примера видно, что при вызове процедуры в данном слу- 
чае длина массива ВР не может быть более 14, т. к. иначе размеры 
массива ВР выйдут за границы массива АР. Число 14 как раз и яв- 
ляется в данном случае результатом вычисления по приведенной выше 
формуле: К = 20 + 1—7 = 14. 

Задание. 1. Какова максимально допустимая длина массива 
РР, идентифицируемого формальным параметром подпрограммы, если 
массив, идентификатор которого является соответствующим факти- 
ческим параметром, содержит 40 элементов? 

2. Как определяются размеры массива, идентифицируемого фор- 
мальным параметром, если соответствующий фактический параметр 
является идентификатором элемента массива? 
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АР (9) | АР (10)|АР (11) [АР (12) |АР (13) АР (14) (АР (15) [АР (16) (АР (17) [АР (18) |АР (19) |АР (90) 
ВР (3) | ВР (4) | ВР (5) | ВР (6) | ВР (7) | врв) | ВР (9) | вр (10)! ВР (11| ВР (12) ВР (13)| ВР (14) 
| +9 | 1-4 10 ев +13 |1614 11415 [14-16 Е | 2-18 {7-19 


Порция 152 


Объекты, описываемые идентификаторами 
(продолжение) 


Переменная 


В отдельной программной единице идентификатор описывает объект, 
принадлежащий классу 2 (переменную), т. е. является идентификато- 
ром переменной, если он удовлетворяет всем трем следующим усло- 
ВИЯМ: 

1. Не описывает объект, принадлежащий классу 6 или 7. Это зна- 
чит, что если в данной программной единице некоторый идентифика- 
тор является идентификатором подпрограммы или внешней функции, 
то он не может быть также и идентификатором переменной. Следую- 
щие последовательности операторов в записи программной единицы 
на языке ФОРТРАН недопустимы: 


51) ЕХТЕВМАІ. А,В 
САРА) с“ 
о 


(Идентификатор А не может принадлежать классу 5 и классу 2) 
0 ЕХТЕВМАГ А,В : 


Е ВГС (А, в). 
а а А. и В не могут принадлежать классу 7 и классу 2) 
Зу | 
САГ Е (Х,У) 
и. а Е 
(Идентификатор Е не может принадлежать классу 6 и классу 2) 
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2. Не стоит перед левой скобкой. Исключение составляет появле- 
ние этого идентификатора, являющегося в данной программной еди- 
нице идентификатором переменной, перед скобками с формальными 
_ параметрами в операторе ЕОМСТТОМ. Другими словами, если неко- 
торый идентификатор является в данной программной единице иден- 
тификатором переменной, он не может в этой же программной единице 
быть идентификатором объекта, принадлежащего классу 3 А5965: 
Если данная программная единица является внешней функцией, то 
идентификатор этой функции должен быть и идентификатором пере- 
менной, определяющей ее значение. 

Примеры допустимых и недопустимых последовательностей опера- 
торов в записи на ФОРТРАНе: 


1) РОМСТЮОМ В(А,В) Такая последовательносль операторов до- 
ООШ пустима: идентификатор К принадлежит 


КЕЕ ЗО классу 2 (и классу 5). 
ВЕТОК ^^ 

РЕМ 

2) ЕОМСТЮМ К(А,В) Приведенная последовательность операто- 
ОР МЕМЗОМ К(10) ров недопустима: идентификатор К ке 
нь может принадлежать классу 2 и клас- 
И оС СУ: | 
ЕМО 13 | | 

ар н М Такая последовательность операторов 
А=В-+С недопустима: идентификатор А не может 
ано еее И принадлежать одновременно классу 2,5 
р=А(1,7)—С(3) и 6. 
СА, А(В,5) — 
а: 


3. Используется, быть может, в данной программной единице для 
обозначения объекта, принадлежащего. классу 8. Примеры допусти- 
мых и недопустимых последовательностей операторов в одной програм- 
мной единице: 


Допустимая Недопустимая 


СОММОМ/К/К 1. А(Х,У) =Ха2-- Уж -- ХаУ 

Х—В—2..59М(У) И 

о ОА ЕЕЕ 
ВМО 


(Идентификатор А неможет 
одновременно принадлежать 
классу 1 и классу 3), 


(Идентификатор К принад- 
лежит классу 2). 
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Задание. Может ли один и тот же идентификатор быть в одной 
программной единице идентификатором: 

а) подпрограммы и переменной? 

6) внешней функции и переменной? 

в) операторной функции и переменной? 


Порция 153 


Объекты, описываемые идентификаторами 
(продолжение) 


Операторная функция 


В одной программной единице идентификатор описывает объект, 
принадлежащий классу 3, т. е. является идентификатором оператор- 
ной функции, если он удовлетворяет одновременно трем следующим 
условиям: | 

1. Не встречается в операторе ЕХТЕЮМАЕ и не описывает объект, 
принадлежащий классу 1, т. е. не является идентификатором внешней 
процедуры, ‚используемым в данной программной единице в качестве 
фактического параметра, или идентификатором массива или элемента 
массива. 

2. Этот идентификатор всегда предшествует левой скобке, за исклк- 
чением, быть может, того случая, когда он встречается в операторе 
типа, т. е. за идентификатором операторной функции всегда должен 
следовать список параметров, заключенный в скобки. 

‚3. В данной программной единице этому идентификатору соответ- 
ствует описание операторной функции. 


Встроенная функция 


В данной программной единице идентификатор описывает объект, 
принадлежащий классу 4, т. е. является идентификатором встроенной 
функции, если он удовлетворяет одновременно четырем следующим 
условиям: | 

1) Не встречается в операторе ЕХТЕЮМАГ.. Напоминаем, что если 
идентификатор, совпадающий с идентификатором встроенной функции, 
описывается в операторе ЕХТЕКМАГ, то встроенная функция с этим 
идентификатором не вызывается и выполняемая программа должна 
включать внешнюю процедуру, именуемую этим идентификатором. 
Например, если в некоторой вызывающей программной единице имеет- 
ся оператор 


ЕХТЕКМАГ, АМІМІ,С2С 


то это значит, что первым оператором одной -из протраммных единиц 
должен быть оператор | 


ЕОМСТІОМ АМІМЦ...) 
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ИЛИ 
ЅОВВООТІМЕ АМІМЦ...) 


2. Идентификатор встречается среди идентификаторов в табл. 23. 

3. Идентификатор не встречается в операторе типа, описывающем 
тип данной функции иначе, чем он описан в табл. 23, например, если 
идентификатор АМАХ! является идентификатором встроенной функ- 
ции, то описание его в следующем операторе типа недопустимо: 


ІМТЕСЕВ АМАХ! 


Описание его в операторе 
РЕА, АМАХІ 


допустимо (но бесполезно). 

4. Идентификатор всегда стоит перед списком фактических пара- 
метров, заключенным в скобки. Исключение составляет появление 
этого идентификатора в операторе типа. 

Использование встроенной функции в данной программной едини- 
це не исключает использования ее идентификатора в другой програм- 
мной единице этой выполняемой программы для описания объекта, 
принадлежащего другому классу. 


Внешняя функция 


Идентификатор в данной программной единице описывает объект, 
принадлежащий классу 5 (внешнюю функцию), т. е. является иденти- 
фикатором внешней функции, если он удовлетворяет следующим ус- 
ловиям: 

1. Следует непосредственно после служебного слова ЕОМСТІОМ 
в операторе ЕОМСТІОМ. | 

2. Не описывает объект, принадлежащий классу 1, 3, 4 или 6, 
т. е. в той же программной единице идентификатор внешней функции 
не может быть также идентификатором массива или элементом этого 
массива, идентификатором встроенной функции, операторной функции 
или подпрограммы. 

3. Всегда стоит перед левой скобкой, за которой следует список 
параметров, за исключением его появления в операторе типа, операто- 
ре ЕХТЕКМАТ,. или в списке фактических параметров при обращении 
к внешней процедуре с идентификатором, отличным от данного иден- 
тификатора (т. е. при косвенном обращении к данной функции). 

Если некоторый идентификатор используется в данной програм- 
мной единице в качестве идентификатора внешней процедуры, он дол- 
жен появиться хотя бы в одном из описанных выше употреблений, 
т. е. в качестве идентификатора переменной в указателе, в операторе 
ЕХТЕВМАГ, в операторе типа или в качестве фактического параметра. 
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Подпрограмма 


В данной программной единице идентификатор описывает объект, 
принадлежащий классу 6 (подпрограмму), т. е. является идентифи- 
катором подпрограммы, если он удовлетворяет одному из следующих 
условий: 

1. Следует непосредственно после слова ЗОВВОЧТИМЕ в опера- 
торе ЗОВКОПТМЕ. — | 

_ 2. Следует непосредственно после слова САІШ. в операторе САШ. 


Внешняя процедура 


В данной программной единице идентификатор описывает объект, 
принадлежащий классу 7 (внешнюю процедуру, тип которой в дан- 
ной программной единице нельзя классифицировать), т. е. является 
идентификатором внешней процедуры, если он удовлетворяет следую- 
щим условиям: 

1. Появляется в списке оператора ЕХТЕЮ МАГ. 

2. Появляется в качестве фактического параметра при обращении 
к внешней процедуре. | 

3. Не является идентификатором внешней функции в указателе 
функции и идентификатором подпрограммы в операторе САТ... 
`` Пример. 


ЕХТЕКМАГ Х,Ү 
САТТА 0, Х) > 
ВНЕ `` 
р. 


В этом примере появление идентификаторов Х и У в операторе 

ЕХТЕВМАГ говорит о том, что они являются идентификаторами 
внешних процедур и могут встретиться в качестве фактических пара- 
метров при обращении к внешним функциям или к подпрограммам 
(в нашем примере — в операторах САТТ, А(2.,Х) и В =5$**4--Е(У)). 
Но ни один из этих операторов не дает нам ответ на вопрос, к какому 
типу относятся процедуры Х и У: к внешним функциям или подпро- 
граммам. 
27 Если фактический параметр при обращении к внешней процедуре. 
является именем другой внешней процедуры, соответствующий фор- 
мальный параметр может быть идентификатором внешней процедуры 
и может им являться только в этом случае. 

Объект, принадлежащий классу 7, может существовать только 
локально в данной программной единице. Во всей совокупности про- 
граммных единиц, составляющих данную выполняемую программу, 
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идентификатор объекта, принадлежащего классу 7, должен употреб- 
ляться как идентификатор объекта, принадлежащего классу 5 или 6. 


Наименование общего блока 


Идентификатор описывает объект, принадлежащий классу 8 (на- 
именование общего блока), тогда и только тогда, когда он использует- 
ся как наименование общего блока в операторе СОММОМ. 


Порция 154 
Память ЭВМ 


Важнейшим понятием в современных ЭВМ является понятие па- 
мяти, которое находит свое четкое преломление в языках программи- 
рования. 

Память современных ЭВМ представляет собой некоторую физи- 
ческую среду, приспособленную для хранения кодов, которыми могут 
быть как представленные в некоторой системе кодирования данные 
(целые, вещественные и т. д.), так и программы (алгоритмы), записан- 
ные на некотором языке и надлежаще закодированные. 

Как было отмечено ранее, для выполнения на ЭВМ любого задания 
соответствующий алгоритм должен быть представлен, в конечном сче- 
те, на машинном языке, непосредственно воспринимаемом данной ма- 
шиной. Если возникает необходимость в описании алгоритма на неко: 
тором более удобном для данного случая языке программирования, 
то процесс решения задачи расчленяется на несколько этапов (шагов): 
например, трансляция на некоторый промежуточный язык и получение 
объектного модуля; загрузка и получение загрузочного модуля и др. 
| По характеру связи с. операционным устройством (переработчиком 
информации) различают два вида памяти: внутреннюю (или оператив- 
ную) и внешнюю. | 

Отличительной особенностью внутренней памяти является воз- 
можность автоматического доступа к ее отдельным полям со стороны 
операционного устройства. Минимальные из этих полей называются 
байтами. Обычно их объем составляет 8 двоичных разрядов (битов). 
Как правило, байты могут коммутироваться в более крупные единицы: 
полуслова (например, два байта), слова (4 байта), двойные слова 
(8 байтов). При этом объединяться могут не любые поля, а физически 
расположенные определенным образом в непосредственном соседстве 
друг с другом. 

Для обращения к полям памяти — посылки в них кодов (режим 
записи) или снятия копий с содержащихся в них кодов (режим чтения)— 
полям памяти присваиваются номера — адреса, коды которых ис- 
пользуются при записи программ на машинных языках и выполнении 
программ. 
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Эквивалентом понятия адреса в языках программирования явля- 
ется понятие идентификатора. 

Для хранения констант, значений переменных и массивов в памяти 
ЭВМ отводятся поля соответствующих размеров. Коды, размещаемые 
в эти поля, расшифровываются операционным устройством согласно 
с типом величин, поскольку один и тот же набор нулей и единиц в 
ячейке с двоичным кодом, рассматриваемый, например, как текстовая 
константа или вещественное число, обозначает разные значения. 

Таким образом, наличие в языке различных объектов (целых, ве- 
щественных ит. д.) вызывает необходимость распознавать тип данного 
по его идентификатору. 

С этой целью используется концепция описания типов идентифи- 
каторов, реализованная в ФОРТРАН частично (для целого и вещест- 
венного типов) неявным образом. 

Описание идентификатора в программе в операторе спецификации 
(или его появление в программе согласно неявному определению типа) 
служит информацией для выделения соответствующего поля данному, 
обозначаемому (идентифицируемому) этим идентификатором. Появле- 
ние описания используется для резервирования поля памяти, но оно 
не определяет никакого значения у данного. Тем не менее наличие 
описаний может служить достаточной информацией для того, чтобы 
сделать вывод о невозможности решения задачи посредством разме- 
щения всех ее программных единиц во внутренней памяти, если «зака- 
занные» поля в сумме окажутся превосходящими общий объем внут- 
ренней памяти, отводимой для данных. Эта информация может быть 
выявлена транслятором и использована для сегментации программы 
или сообщена пользователю в качестве указания на необходимость 
сегментации данных, т. е. разделения их на части, размещаемые 
во внешней памяти и вводимые во внутреннюю память по мере надоб- 
ности. В последнем случае может возникнуть необходимость во внесе- 
нии надлежащих изменений в алгоритм выполнения задания. 

Внешняя память (иначе, внешняя среда) обладает своими положи- 
тельными качествами: она удобна для длительного хранения инфор- 
мации, отличается большой емкостью и возможностью отделения от 
машины (магнитные ленты, сменные диски, перфокарты). При этом, 
если данные предполагается в дальнейшем использовать для. внут- 
ренней обработки, эти данные на внешних носителях (во внешней сре- 
де) могут храниться в форме внутреннего машинного представления, 
которое во многих случаях не совпадает с внешним представлением, 
предназначенным для обозрения человеком выводимых данных на пе- 
чати (вставка пробелов для удобочитаемости, гашение ведущих нулей 
у целой части чисел и др.). 

Определив идентификатор (описав его в случае недостаточности 
неявного задания), можно использовать этот идентификатор в записи 
операторов при составлении программы. 
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Однако при этом следует иметь в виду, что какова бы ни была 
величина, она остается неопределенной до тех пор, пока не будет 
выполнено присвоение ей значения: отведенное ей поле памяти «свобод- 
но» и чтение из него (снятие копий) запрещено, пока в это поле не бу- 
дет заслано некоторое значение соответствующего типа. Вместе с тем, 
на что мы обращаем особо Ваше внимание, раз определенная величина 
может не только переопределять в процессе выполнения программы 
свое значение, но в некоторых случаях может стать снова неопреде- 
ленной. 

Описание этих случаев заслуживает отдельного рассмотрения, ко- 
торому мы посвятим следующую порцию. 

Задание 1. Какие виды памяти Вы знаете? 

2. Какие режимы обращения к памяти определены в программиро- 
вании? 

3. Что называется байтом? 

4. Как может быть использована информация об идентификаторах 
транслятором? 

5. Как описывается тип данных в ФОРТРАНе? 

6. Какая форма обращения к данному может оказаться недопусти- 
мой и в каком случае? | 


Порция 155 
Определенность и неопределенность величин 


Любая величина, которая не определена посредством оператора 
РАТА, к моменту первого выполнения первого выполняемого опера- 
тора главной программы является неопределенной. 

Оператор РАТА задает начальное определение всем тем перемен- 
ным и элементам массивов, которые связаны в нем с константами, тип 
которых соответствует типу переменных и массивов. 

Каждая определенная величина может быть переопределена, 
за исключением: | 

1. Управляющая переменная оператора цикла ОО, его начальный 
параметр, конечный параметр и параметр приращения не могут быть 
переопределены во время выполнения операторов, принадлежащих 
области данного оператора РО или его расширенной области. Напри- 
мер, оператор РО в следующем примере: 


РО 5 1=ку,М 
5 СОМТМОЕ 


недопустим, т. к. он содержит в своей области оператор присвоения, 
в левой части которого содержится конечный параметр. 
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2. То же ограничение касается элементов списка типа цикл в опе- 
раторах ввода-вывода. Оператор ввода 


ВЕАР(2,5) (№, А(1,1)1= 1), №-=2,10) 


недопустим, так как он изменяет значение конечного параметра. 

3. Значения фактических параметров, задающих размеры массива 
в списке параметров обращения (которые должны быть определены 
к моменту обращения к функции или процедуре), не могут переопре- 
деляться во время выполнения процедуры. 

4. Вычисление функций, вызванное наличием указателя функции 
в выражении, не переопределяет значений никаких других элементов 
в этом выражении, операторе присвоения или операторе САШ. 

5. Если обращение к процедуре влечет связь одних формальных 
параметров с другими формальными параметрами той же самой про- 
цедуры или с величиной, входящей в общий блок, то такие параметры 
не могут переопределяться в процессе выполнения внешней проце- 
дуры. 

Рассмотрим операторы, приводящие к определенности и к неопре- 
деленности величин в ФОРТРАНе. 

і. Величина, идентификатор которой стоит перед знаком равенства 
в арифметическом или логическом операторе присвоения, становится 
определенной в момент завершения выполнения этого оператора. 
Исключение составляет случай, когда правая часть арифметического 
оператора содержит действия, приводящие к возведению компоненты 
типа целое в степень типа вещественного или повышенной точности 
или к возведению основания, равного нулю, в нулевую степень. 
В этом случае оператор присвоения неопределен (как правило, в этом 
случае реализацией обеспечивается выдача соответствующей диагно- 
стической информации). То же самое касается невозможности вычисле- 
ния значения выражения, компоненты которого не определены мате- 
матически (например, встроенная функция МОР не определена, если’ 
ее второй аргумент равен нулю). 

2. Величины, стоящие в списке оператора ввода-вывода, становятся 
определенными в процессе выполнения соответствующих операторов. 
При этом связанные с ними величины (например, посредством операто- 
ров ЕООУАТЕМСЕ) становятся определенными лишь после завер- 
шения выполнения соответствующего оператора. 

Таким образом, если две переменные КА и КВ определены как 
эквивалентные в данной программной единице посредством оператора 
ЕСОГУАГЕМСЕ и КА присвоено посредством оператора присвоения: 
значение 3, то это же значение будет иметь и переменная КВ. Пусть 
выполняется оператор ввода, в котором первым элементом списка 
является КА, а вторым М(КВ) (элемент массива М с индексом КВ): 


ВЕАР(2,4)ҚА,М(КВ) 
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Хотя вначале будет присвоено новое значение переменной КА (на- 
пример, значение 5), следующее за ним на носителе значение (в соот- 
ветствующем формате) будет присвоено элементу М(3), а не М(5). 

Для того чтобы присвоение производилось с учетом только что при- 
своенного значения общей переменной, необходимо осуществить ввод 
посредством не одного, а двух операторов ввода, т. е., например, 
вместо оператора 


ВЕАР(2,4)КА,М(КВ) 


надо было бы применить два оператора 


КЕАр(2,4)КА 
КЕАО(2,4)М(КВ) 


‘Заметим, что тот же результат может быть получен посредством 
выполнения одного оператора 


ВЕАр(2,4)КА,М(КА) 


3. Выполнение оператора РО влечет за собой определение соот- 
ветствующей управляющей переменной. Последняя остается опреде- 
ленной при выходе из области оператора, совершившемся до превы- 
шения ею своего граничного значения. 

4. Начало выполнения действия, определенного посредством эле- 
мента списка цикла, влечет за собою определение управляющей пере- 
менной в операторе ввода-вывода. 

5. Выполнение оператора АЗЗ1@М приводит к неопределенности 
переменной целого типа, указанной в этом операторе (поскольку 
значение переменной после ее употребления в операторе А5516М№ мо- 
жет быть использовано только в операторах СО ТО по предписанию). 

6. Завершение оператора РО приводит к неопределенности управ- 
ляющей переменной этого оператора. 

7. При завершении действия, вызванного посредством элемента 
списка типа цикл, управляющая переменная становится неопреде- 
ленной. 

8. Переменные и элементы массива становятся неопределенными, 
когда связанная с ними величина того же типа становится неопреде- 
ленной. 

9. Переменные и элементы массива становятся неопределенными, 
когда связанная с ними величина, имеющая другой тип, становится 
определенной (например, две величины связаны отношением СОММОМ, 
одна из них — вещественная, другая — комплексная). 

Задание. 1. Какие действия приводят к определенности пере- 
менных и элементов массивов? 

2. Какие действия приводят к неопределенности переменных и 
элементов массивов? 
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3. Может ли быть использована в левой части в арифметическом 
операторе присвоения переменная, значение которой в момент вы- 
полнения этого оператора не определено? В логическом операторе 
присвоения? 

4. Две переменные связаны оператором СОММОМ. Одна из них 
становится определенной. Можно ли утверждать, что в этот момент 
становится определенной и другая? Тот же вопрос для случая, 
когда одна из переменных становится неопределенной. 

5. Две переменные связаны отношением эквивалентности (опера- 
тором ЕӦОІУАТЕМСЕ). Можно ли утверждать, что в момент, когда 
одна из них становится определенной и вторая также становится 
определенной? В каком случае такое согласование не будет иметь 
места? Тот же вопрос для случая, когда одна из переменных ста- 
новится неопределенной. 


Глава УТ 


Сводка основных правил программирования 
на языке ФОРТРАН 


1. Выполняемая программа 


Выполняемая программа является последовательностью операто- 
ров, коментариев и конечных строк, которые полностью (с учетом зна- 
чений вводимых данных) описывают вычислительный процесс. 

Выполняемая программа состоит из главной программы и любого 
количества внешних процедур или сопрограмм или тех и других. Тер- 
мин «программная единица» обозначает как главную программу, так и 
внешнюю процедуру. 


1.1. Алфавит языка ФОРТРАН 


Каждая выполняемая программа формируется из символов, груп- 
пируемых в строки и операторы. 

Для написания программной единицы на языке ФОРТРАН исполь- 
зуются следующие символы: 

Прописные буквы латинского алфавита ': 


АВС ЕРОН, КАМАР ТУХ, 


Цифры: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 
Специальные символы: 


Символ Название символа 
Е Пробел 
== Равно 
-- Плюс 
— Минус 
"я Звездочка 
/ Косая черта 
( Левая скобка 
5 Правая скобка 
Ң Запятая 
1 Десятичная точка 
ф Денежный знак 


Порядок, в котором перечислены символы, не имеет значения. 


1 В некоторых реализациях языка ФОРТРАН на отечественных ЭВМ алфавит 
языка дополняется заглавными буквами русского славата отличными по начерта- 
нию от латинских. ) 
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2. Типы данных 


В ФОРТРАНе допускаются следующие шесть типов данных: 


целый 

вещественный 
повышенной точности 
комплексный 
логический 

текстовый 


Каждый тип имеет собственный смысл и имеет свою машинную 
интерпретацию. | 


2.1. Данные целого типа 


Данное целого типа всегда является точным представлением цело- 
го значения. Оно может быть положительным, отрицательным или 
равным нулю. Его значение должно быть целым. 


| 


` 2.2. Данные вещественного типа 


Вещественное данное является приближением значения веществен- 
ного числа. Оно может быть положительным, отрицательным или рав- 
ным нулю. 


2.3. Данные повышенной точности 


Данное повышенной точности является приближением значения 
вещественного числа. Оно может быть положительным, отрицатель- 
ным или равным нулю. Степень приближения в стандарте языка не 
определяется, но должна быть выше, чем степень приближения данных 
вещественного типа. 


2.4. Данные комплексного типа 


Данное комплексного типа является приближением значения комп- 
лексного числа. Оно представляется в форме упорядоченной пары ве- 
щественных данных. Первое из этих данных представляет веществен- 
ную, а второе — мнимую часть комплексного числа. Каждое из этой 
пары данных имеет ту же степень приближения, что и вещественное 
данное. 
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2.5. Данные логического типа 


Данное логического типа может принимать только истинностны?з 
значения: истина (.ТЕОЕ.) и ложь (.ЕАТЅЕ.). 


2.6. Данные текстового типа 


Текстовое данное представляется последовательностью символов. 
Эта последовательность может содержать любые символы, доступные 
устройствам ввода-вывода реальной ЭВМ. Символ пробела является 
значащим символом в данных текстового типа и только в этих данных. 


3. Константы 


Константа — это величина, которая в процессе вычисления всегда 
определена и не может быть изменена. Тип и значение константы опре- 
деляется ее записью. В языке ФОРТРАН используются шесть типов 
констант: 


целые 
вещественные 
повышенной точности 
комплексные 
логические 
текстовые 


3.1. Целая константа 


Целая константа представляется в виде непустой строки цифр, 
перед которой может стоять знак «--» или «—». Константа интерпре- 
тируется как десятичное число. 


3.2. Вещественная константа 


Основная вещественная константа состоит из целой части, десятич- 
ной точки и дробной части. Как целая, так и дробная часть являются 
строками цифр; одна из этих строк, но не обе, может быть пустой. 
Основная вещественная константа интерпретируется как приближение 
десятичного числа. Перед константой этого типа может стоять знак 
«|» ИЛИ «—». 

Десятичная экспонента представляется в виде буквы Е, за которой 
следует одно- или двухразрядная целая константа, возможно со зна- 
ком. Десятичная экспонента является множителем (относящимся к 
константе, записанной непосредственно перед ним) вида: десять, воз- 
веденное в степень, указанную целым, записанным непосредственно 
после буквы Е. 
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Вещественная константа записывается в виде: основной вещест- 
венной константы; основной вещественной константы, за которой 
следует десятичная экспонента; или целой константы, за которой сле- 
дует десятичная экспонента. 


3.3. Константа повышенной точности 


Экспонента повышенной точности записывается и интерпретируе- 
тся, как и десятичная экспонента, только вместо буквы Е записыва- 
ется буква О. | 

Константа повышенной точности записывается в виде основной 
вещественной константы, за которой следует экспонента повышенной 
точности, или в виде целой константы, за которой следует экспонента 
повышенной точности. | 


3.4. Комплексная константа 


Комплексная константа записывается в виде упорядоченной пары 
вещественных констант, разделенных запятой и заключенных в скобки. 


3.5. Логическая константа 


Логические константы «истина» и «ложь» записываются соответст- 
венно в виде: (ТРОЕ. и .ЕАІ$Е.. 


3.6. Текстовая константа 


Текстовая константа представляется в. виде последовательности 
любых доступных процессору данной ЭВМ символов, которой пред- 
шествует целая положительная константа (и), равная числу этих сим- 
волов, и буква Н. Пробел является значащим символом в текстовой 
константе. Константа этого типа может быть использована только 
в операторе САТТ, или в операторе начальных данных. 


4. Идентификаторы 


Идентификатор — это последовательность не более чем шести сим- 
волов букв или цифр, первым символом в которой является буква. 
Идентификаторы употребляются для идентификации (обозначения) 
данных и процедур. Идентификаторы данных именуют (обозначают) 
переменные, массивы и их элементы (посредством указания индек- 
сов) или блоки данных. Идентификатор процедуры именует функцию 
или подпрограмму. | е 
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4.1. Переменная 


Переменная — это величина, обращение к значению которой осу- 
ществляется с помощью ее идентификатора. Такая величина может 
быть неопределена, определена, переопределена и использована для 
ссылок к отведенному для ее значения полю памяти. 


4.2. Массив 


Массив — это упорядоченная последовательность величин, имею- 
щая одно, два или три измерения. Массив именуется (обозначается) 
идентификатором. 


4.2.1. Элемент массива 


‚ Элемент массива — это один из членов совокупности данных, со- 
ставляющих массив. Элемент массива именуется с помощью иденти- 
фикатора данного массива с последующим списком индексов, опре- 
деляющих его позицию в массиве. Элемент массива может быть 
неопределен и переопределен. Идентификатор массива со списком ин- 
дексов (переменная с индексами) может быть использован для ссылок 
к полю памяти, отведенному для значения данного элемента массива. 


4.2.2. Список индексов 


Список индексов представляет собой список индексных выраже- 
ний, заключенный в скобки. Индексные выражения отделяются друг 
от друга запятыми, если их несколько. Количество индексных выра- 
жений должно соответствовать описанной размерности. Заданный эле- 
мент массива определяется с помощью функции упорядочения элемен- 
тов массива путем вычисления всех индексных выражений. 


4.2.3. Индексные выражения 


В языке ФОРТРАН допустимы только следующие виды индексных 
выражений: 

с*о--Е 

с*0—6 

с 

ЕЕ 

0— 

0 

| 
Здесь си К — целые константы, 

о — переменная целого типа. 
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4.3. Процедуры 


Процедура именуется идентификатором. В языке определены сле- 
дующие типы процедур: 

1) операторная функция 

2) встроенная функция 

3) основная внешняя функция 

4) внешняя функция 

5) подпрограмма | 

Операторные функции, встроенные функции, основные внешние 
функции и внешние функции называются функциями, или процедура- 
ми функций. Внешние подпрограммы называются подпрограммами, 
или процедурами подпрограмм. Процедуры выполняются в точке об- 
ращения к ним. 

Функция возвращает свое значение в точку обращения к ней (чего 
не делают подпрограммы). Формы обращения к функциям и к под- 
программам различны: обращение к функции осуществляется посред- 
ством ее указателя; обращение к подпрограмме — посредством опера- 
тора вызова подпрограмм (оператора САТТ.). 


4.4, Указатель функции 


Указатель функции имеет вид: идентификатор этой функции, за ко- 
торым следует непустой список фактических параметров, заключен- 
ный в скобки. Если список содержит более одного параметра, то они 
отделяются друг от друга запятыми. 


5. Выражения 


Выражение — это правило для вычисления одного значения. В язы- 
ке ФОРТРАН допускается использование следующих типов выра- 
жений: 

1) арифметические 

2) логические | 

Выражения строятся из операндов, знаков операций и скобок. 


5.1. Арифметические выражения 


Арифметические выражения строятся из арифметических операн- 
дов, знаков операций и скобок. Как выражение, так и его компоненты 
определяют значения только одного из следующих типов: целый, ве- 
щественный, повышенной точности или комплексный. В табл. 19 при- 
веден список арифметических операций. 

Операндами арифметического выражения являются: первичное 
выражение, множитель, терм, терм со знаком, простое арифметическое 
выражение и арифметическое выражение. 
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Таблица 19 


Знак операции Операция 
ОЕ С РКА ЫРА о ЗЕ ГЕНЕР ЕЕ ЕЕ На 020 И 
а сложение или сохранение знака 


(нуль -|- элемент) 
— вычитание или замена знака на об- 


ратный (нуль — элемент) 


< умножение 
/ деление 
тж возведение в степень 


кд ——————___———————— 


Первичное выражение — это: 
арифметическое выражение, заключенное в скобки; 
константа; 

переменная; 

переменная с индексами; 


указатель функции. = 
Множитель — это первичное выражение или конструкция вида: 


первичное выражение ** первичное выражение 

Терм — это множитель или конструкция вида: 

терм/множитель 
ИЛИ 

терм*терм 

Терм со знаком — это терм, которому предшествует знак -- или —. 

Простое арифметическое выражение — это терм или два простых 
арифметических выражения, разделенных знаком +- или —. 

Арифметическое выражение — это: 

простое арифметическое выражение; 

терм со знаком; 

одна из предыдущих форм, стоящая непосредственно перед зна- 
ком +4- или —, за которым следует простое арифметическое выражение. 

Правила записи арифметических выражений: 

1) Знак умножения при записи арифметического выражения опус- 
кать нельзя. 

2) Два знака операций не могут следовать один за другим. 

3) Скобки в арифметических выражениях используются для выде- 
ления индексов элементов массивов, фактических параметров в указа- 
телях функций и указания порядка выполнения операций. 

4) Порядок вычисления выражения определяется старшинством 
операций и скобками. | 

Старшинство операций в арифметическом выражении следующее: 

вычисление значений функций; 

возведение в степень; 
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умножение и деление; 

сложение и вычитание. 

Выражения, заключенные в скобки, вычисляются в первую очередь, 
причем вычисление выражения начинается с самых внутренних скобок. 

5) Правила определения типа значения выражения приведены в 
таблицах: 6, 7 (см. стр. 29). В этих таблицах знаком «—» обозначены 
недопустимые комбинации операндов в арифметическом выражении. 


5.2. Логические выражения 


Логическое выражение образуется из операндов логического типа, 
логических операций и скобок. Операндами логического выражения 
могут быть: 

первичное логическое выражение; 

логический множитель; 

логический терм; 

логическое выражение. 

Отношения, являющиеся частным случаем логического выражения, 
состоят из двух арифметических выражений, соединенных знаками 
отношения. Каждое из входящих в отношение арифметических выра- 
жений может быть вещественным, или повышенной точности, или оба 
выражения должны быть целыми. 

Значение, определенное отношением, имеет логический тип, т. е. 
принимает значение «истина» или «ложь». 

В табл. 10 (см. стр. 34) приведены операции отношения. 

В табл. 11 (стр. 35) приведены допустимые сочетания типов опе- 
рандов в отношениях для операций .ГТ.,.ГЕ.,.ЕО.,.МЕ.,.СТ.,.ОЕ.. 

Если в отношении используются арифметические выражения типа 
«вещественный» и «повышенной точности», то это выражение эквива- 
лентно отношению с той же операцией отношения, содержащему в 
своей правой части нуль повышенной точности, а в левой — разность 
исходных выражений, записанных в первоначальном порядке. 

Первичное логическое выражение — это: 

логическое выражение, заключенное в скобки; - 

отношение; 

логическая константа; 

логическая переменная; 

элемент массива логического типа; 

логическая функция. НА 

Логический множитель — это: 

первичное логическое выражение, 

операция .МОТ., за которой следует первичное логическое выра- 
жение. 

Логический терм — это: 

логический множитель, 
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конструкция вида: 

логический терм .ОК. логический терм. 

Логическое выражение — это: 

логический терм; 

конструкция вида: 

логическое выражение .АМО. логическое выражение. 

В табл. 9 приведены обозначения логических операций. 

Логическое выражение может принимать только логические зна- 
чения, т. е. истина (.ТВОЕ.) или ложь (.ЕАТЅЕ.). 

В табл. 20 приведены значения логических выражений для опера- 
ций .ОВ., .АЮО. и .МОТ. | 


Таблица 20. 

Определение значения логического выражения для операций .ОВ., .АМО., „МОТ. 

О то Гаа ВАРАН ИАЕА АВИИ ВЕНЫ Е Ее Е 
и о пае операн: о ч А. АМ. В КОТА 

КРИВЕ А Г Ома ИНВ А Н НАА О И Ноле АЛОЕ ЗАРАНЕЕ 
ТВОЕ. ТЕШЕ, ' ТВОЕ. „ТВОЕ. .БАГЗЕ. 
ТВОЕ. ЕАЕЅЕ. ТЕЧЕ. .ВАЕЗЕ. .РАТФЕ. 
ЕАЕЅЕ. ТВОЕ. ЕЦЕ: .БАГЗЕ. ТЕСЕ. 
.БАГЗЕ. ЕАКЅЕ. .ЕАГЅЕ. .ЕАТЗЕ. РКО. 


д —— 


6. Операторы 
6.1. Классификация операторов 


В языке ФОРТРАН имеется строго фиксированный набор операто- 
ров, из которых строится любая программная единица. Операторы 
компонуются из служебных слов и основных символов языка в соот- 
ветствии с определенными правилами. На стр. 286 приведен полный 
список форматов операторов языка ФОРТРАН. 

Операторы разделяются на выполняемые и невыполняемые. Вы- 
полняемые операторы определяют действия; невыполняемые операто- 
ры описывают характер и организацию данных, способ редактирова- 
ния данных, операторные функции и классификацию программных 
единиц. | 

Любой выполняемый оператор может быть снабжен меткой. Метка 
представляет собой не более, чем пятизначное целое без знака. Метка 
должна быть записана с первой по пятую колонку строки оператора. 
Все метки в одной и той же программной единице должны быть раз- 
ЛИЧНЫМИ. 

Невыполняемые операторы не должны быть помечены; исключение 
составляет оператор ЕОКМАТ, который обязательно должен быть 
снабжен меткой. | 
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В языке определены три вида выполняемых операторов: 

операторы присвоения; 

операторы управления; 

операторы ввода-вывода. 

Операторы присвоения вызывают вычисление значения выражения 
и замену текущего значения переменной или элемента массива резуль- 
татом вычисления. 

Операторы управления позволяют изменять последовательность о 
выполнения операторов данной программной единицы и управлять вы- 
полнением программы. 

Операторы ввода-вывода управляют обменом данными между внут- 
ренней памятью и устройствами ввода-вывода. 

Невыполняемые операторы делятся на пять видов: 

операторы спецификаций; 

оператор начальных данных; 

оператор ЕОЮМАТ; 

операторы функций; 

операторы подпрограмм. 

Операторы спецификаций используются для описания характера 
и организации переменных, массивов и процедур. 

Оператор начальных данных используется для задания начальных 
значений переменным и элементам массивов. 

Оператор ЕОКМАТ используется вместе с некоторыми видами опе- 
раторов ввода-вывода для обеспечения нужных преобразований и 
редактирования передаваемых данных. 

Операторы определения функций и подпрограмм позволяют иден- 
тифицировать и определять функции и подпрограммы. 

При записи любой программной единицы важен. порядок записи 
операторов. В табл. 21 приведен р следования операторов в 
главной программной единице. 


Таблица 21 


Операторы спецификаций 


Операторы ЕОВМАТ операторные функции 
операторы РАТА 
выполняемые операторы 


конечная строка 


Вертикальные сплошные линии отделяют виды операторов, ко- 
торые можно располагать среди других операторов. Горизонтальные 
сплошные линии указывают границы размещения отдельных видов 
операторов. Таким образом, операторные функции. должны стоять’ 
после операторов спецификаций, но перед первым выполняемым опе- 
ратором. Операторы ЕОКМАТ можно записывать в любом месте главной. 
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программы до конечной строки. Операторы начальных данных 
могут быть размещены в любом месте главной программы после опера- 
торов спецификаций. Кроме соблюдения порядка следования соответ- 
ствующих операторов главная программа должна удовлетворять еще 
одному требованию: в теле главной программы должны быть по мень- 
шей мере, кроме оператора ЭТОР, еще один выполняемый оператор и 
обязательно одна и только одна конечная строка. 

Для функций и подпрограмм должен соблюдаться тот же порядок 
операторов, что и для главной программы, только перед оператора- 
ми, приведенными в табл. 21, должен стоять оператор внешней фун- 
кции или подпрограммы, а взамен оператора ТОР должен встре- 
чаться по крайней мере один оператор КЕТОКМ. 


6.2. Выполняемые операторы 


Выполняемыми операторами являются: 
1. Операторы присвоения 

2. Операторы управления 

3. Операторы ввода-вывода 


6.2.1. Операторы присвоения 


Имеется три типа операторов присвоения: 
1. Арифметический 

2. Логический 

3. Оператор присвоения метки 


6. 2. 1. 1. АРИФМЕТИЧЕСКИЙ ОПЕРАТОР ПРИСВОЕНИЯ 


Формат а. оператора присвоения следующий: 
а = ђ 


где 4 — идентификатор переменной (с индексами или без них), 
Б — арифметическое выражение. 

Действие арифметического оператора присвоения состоит в 
вычислении выражения б и присвоении его значения переменной а. 
При этом переменная 2 и выражение 6 могут быть различных · 
ТИПОВ. 

Правила преобразования значения выражения 2 для присвоения 
его переменной а приведены в табл. 22. 
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Таблица 22 
И —_о_ о НТ. У РЬ ЛАНГЕТ Я 


Тип а Тип 6 Правило присвоения 


УМХ о 


целый целый без преобразования 


— = Аб Кена, САС 


целый вещественный дробная часть отбрасывается, резуль- 
тат преобразуется к целому типу 


Е ЕЕЕ аав 


целый повышенной то0ч- | дробная часть отбрасывается, резуль- 
"ности тат преобразуется к целому типу 
————————————————_ ОЕ ООО 
целый комплексный недопустимая конструкция 
ж—жЖ— СС 
вещественный целый преобразуется к вещественному типу 
и 
вещественный вещественный без преобразования 
— 
вещественный повышенной тоЧ- | сохраняется максимально возможное 
НОСТИ число знаков 
Е НЫСЫ лаа лану ТТЕ рг траванне аре атут та ата ао УВЕДЕ ИС ЧРЕБОРОНЕЮ ТУ НИНЕ в ОР, У] 
вещественный комплексный недопустимая конструкция 
до 
повышенной точ- | целый | преобразуется в форму повышенной 
НОСТИ точности 
т"  н,пП—рррыБФШ—ШФШ—ШШ—Ш————————_—_———а 
повышенной точ- | вещественный преобразуется в форму повышенной 
ности точности 


ЪБВнБнннтнны 8. 
повышенной точ- | повышенной точ- | без преобразования 

НОСТИ ности 

повышенной точ- | комплексный недопустимая конструкция 

ности 

м— + 
комплексный | целый | недопустимая конструкция 

Дт 6 
комплексный | вещественный | недопустимая конструкция 


7 


комплексный повышенной точ- | недопустимая конструкция 
‚ ности 
комплексный комплексный без преобразования 


ыы 
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6. 2. 1. 2. ЛОГИЧЕСКИЙ ОПЕРАТОР ПРИСВОЕНИЯ 


Формат логического оператора присвоения следующий: 
а == б 


где а — идентификатор логической простой переменной или перемен- 
ной с индексами; р — логическое выражение. Выполнение этого опе- 
ратора вызывает вычисление логического выражения № и присвоение 
его значения переменной а. 


6. 2. 1. 8. ОПЕРАТОР ПРИСВОЕНИЯ МЕТКИ 


Метки операторов ФОРТРАНа не являются обычными целыми пере- 
менными. Поэтому нельзя воспользоваться оператором СО ТО М, 
присвоив предварительно целой переменной М некоторое значение. 
Чтобы указать, что значение, присваиваемое переменной, является 
меткой оператора, используется оператор АЗЗТ@М ТО, который имеет 
формат: 


АЅ5ІСМ а ТО т 


где а — метка, 
т — идентификатор целой переменной. 

После выполнения данного оператора любой оператор СО ТО по 
предписанию, использующий идентификатор т, вызовет передачу 
управления оператору с меткой а (если указанная переменная т к это- 
му моменту не будет переопределена). Метка а должна относится к вы- 
полняемому оператору, находящемуся в той же программной единице, 
что и оператор АТОМ. _ 

После использования целой переменной т в операторе АЗЗТ@амМ 
эта переменная становится доступной только в операторах СО ТО 
по предписанию до тех пор, пока она не будет переопределена опе- 
ратором, отличным от оператора присвоения метки (оператором ввода, 
арифметическим оператором присвоения, оператором РО или посред- 
ством обращения к некоторой процедуре). 


6.2.2. Операторы управления 


Имеется восемь видов операторов управления: 
Операторы СО ТО 

Арифметический оператор 1Е 

Логический оператор 1Е 

Оператор СА 

. Оператор КЕТОКМ 

Оператор СОМТІМОЕ 

Операторы управления программой 
Оператор РО. 


В 
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Метки операторов, используемые операторами управления, являют- 
ся метками выполняемых операторов, находящихся в той же самой про- 
граммной единице, в которой находится данный оператор управления. 


6.2.2.1. ОПЕРАТОРЫ СО ТО 


Имеется три разновидности операторов СО ТО: 
1. Безусловный оператор СО ТО 

2. Оператор СО ТО по предписанию 

З. Оператор СО ТО по вычислению. - 
Безусловный оператор О0О ТО 
Безусловный опзратор СО ТО имеет формат: 


СО ТО р 


Здесь и — метка. Оператор СО ТО п передает управление оператору 
с меткой п. 

Оператор СО ТО по предписанию 

Оператор СО ТО по предписанию имеет формат: 


ООО: в, п) 


Здесь К — целая переменная, а и; — метки операторов (1 < ј < 0). 
К моменту выполнения подобного оператора значение Ё должно быть 
определено посредством выполнения некоторого оператора АЗЗТОМ, 
и это значение должно совпадать с одной из меток, заключенных в 
скобки. Оператор передает управление оператору с этой меткой. 
Оператор СО ТО по вычислению 
Оператор СО ТО по вычислению имеет формат! 


<о ТО (^1, Йу...) п), К 


Здесь й; — метки (1 < ј < й), 

Е — целая переменная. 
Если текущее значение № равно ] в момент выполнения этого оператора, 
то оператор СО ТО по вычислению передает управление оператору 
с меткой йу. 


6.2.2.2. АРИФМЕТИЧЕСКИЙ ОПЕРАТОР [Е 


Арифметический оператор [Е имеет следующий формат: 
[Е (а) Пт, П», Пз 


Здесь а — арифметическое выражение (целое, вещественное или по- 
вышенной точности); | 

п, По, п. — метки. 

Действие арифметического оператора ІЕ состоит в следующем: 
если значение арифметического выражения внутри скобок отрица- 
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тельно, то управление передается оператору с меткой п; если это вы- 
ражение равно нулю — оператору с меткой и; если же это выражение 
положительно, то управление передается оператору с меткой п.. 


6.2.2.3. ЛОГИЧЕСКИЙ ОПЕРАТОР 1Е 


Логический оператор 1Е имеет следующий формат: 
ІЕ(25 


Здесь [ — логическое выражение; 
$ — любой выполняемый оператор языка ФОРТРАН за исклю- 
чением оператора РО и логического оператора 1Е. 
Действие этого оператора состоит в следующем: если значение / 
есть .ТЮОЕ., то выполнение логического оператора ІЕ сводится к 
выполнению оператора $. Если же выражение / есть .ЕАГЗЕ., то внут- 
ренний оператор $ пропускается и управление передается следующе- 
му за ним в записи программы оператору. В последнем случае опера- 
тор ІЕ эквивалентен пустому оператору. | 


6.2.2.4. ОПЕРАТОР. СА, 


Оператор САГГ имеет формат: 


САР (ааи “а: 
ИЛИ 
| САШ, 5 
Здесь 5 — идентификатор подпрограммы; 
ау, а., .... а, — фактические параметры. 


Выполнение оператора САТ.Т., заключается в обращении к упомя- 
нутой в нем подпрограмме 5. Возврат с последней завершает выпол- 
нение оператора САГГ. 


6.2.2.5. ОПЕРАТОР КЕТОЕМ 


Оператор КЕТОКМ имеет вид: 
ВЕТОКМ 


Оператор КЕТОКМ может появляться только в процедурах. 

Выполнение этого оператора вызывает возврат управления той про- 
граммной единице, из которой было произведено обращение к данной. 

Во время возвращения управления значение внешней функции, 
к которой было произведено обращение, становится доступным. 


6.2.2.6. ОПЕРАТОР СОМТ1 МОЕ 


Оператор СОМТІМОЕ имеет формат: 
| СОМТІМОЕ 


Выполнение этого оператора вызывает продолжение нормально 
выполняемой последовательности операторов. Оператор может быть 
использован в качестве конечного в области РО. 


6.2.2.7. ОПЕРАТОРЫ УПРАВЛЕНИЯ ПРОГРАММОЙ 


Имеется две разновидности операторов управления программой: 
1. Оператор ТОР 
2. Оператор РАОЅЕ 
Оператор ЅТОР 
Оператор ТОР имеет один из форматов: 
ЭТОР п 


ИЛИ 
ЗТОР 
Здесь и — строка восьмеричных цифр (от одной до пяти). 
Выполнение этого оператора вызывает окончание выполнения дан- 
ной программы. В случае первого формата строка п становится до- 
ступной, т. е. выводится на одно из внешних устройств. 
Оператор РАО5ЅЕ 
Оператор РАЏОЅЕ имеет один из форматов: 
РАОЅЕ п 


ИЛИ 
РАОЅЕ 


Здесь и — строка восьмеричных цифр (от одной до пяти). 

Оператор РАЏОЅЕ вызывает прерывание в выполнении программы. 
Выполнение может быть возобновлено. В момент прерывания програм- 
мы строка п восьмеричных цифр, указанная в операторе, становится 
доступной. Решение о возобновлении выполнения не находится под 
управлением выполняемой программы, но если выполнение возоб- 
новляется без изменения состояния процессора, то завершение вы- 
полнения оператора РАОЅЕ вызывает продолжение нормально вы- 
полняемой последовательности операторов. 


6.2.2.8. ОПЕРАТОР РО 


Оператор РО имеет один из форматов: 
Роя т 
ИЛИ 
РО п і=т, т, 
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Здесь п — метка некоторого выполняемого оператора. Последний, 
называемый конечным оператором цикла, должен в записи программы 
следовать после ОО и находиться с ним в одной и той же программной 
единице. Конечный оператор не может быть оператором СО ТО, ариф- 
метическим оператором 1Е, оператором КЕТОКМ, 5ТОР, РАОЅЕ или 
ПО, а также логическим 1Е, содержащим какой-либо из перечисленных 
здесь операторов; | 
і — целая переменная, называемая управляющей переменной; 
ту — начальный параметр переменной #, 

т, — конечный параметр переменной 1; 

т: — параметр приращения. 
ту, т.о, т, могут быть либо целыми константами, либо целыми пере- 
менными. 

Если используется второй формат оператора ОО, в котором пара- 
метр приращения явно не задан, то значение параметра приращения 
считается равным единице. К моменту выполнения оператора РО зна- 
чения 1, т, т, должны быть определены, положительны и значение 
т; должно быть меньше или равно т.. 

Участок программы, начиная с оператора, непосредственно следу- 
ющего за ОО, и заканчивая оператором с меткой п, называется об- 
ластью оператора РО. | | 

Выполнение оператора РО сводится к выполнению последователь- 
ности операторов, составляющих его область, при значениях управ- 
ляющей переменной і, равных т, т; -- тз, т. + 2т. ит. д., до тех 
пор, пока управление не будет передано посредством какого-либо опе- 
ратора перехода оператору, находящемуся вне области данного опе- 
ратора РО, или пока значение і не станет больше то. | 

Язык допускает вложенные циклы. При этом, если внутри одного 
оператора РО содержится другой оператор РО, то область внутрен- 
него РО должна принадлежать области внешнего РО. 

Допускается возврат внутрь области самого внутреннего оператора 
РО после выхода из нее. В этом случае говорят о расширенной обла- 
сти оператора РО. Ни в каком другом случае передача управления 
извне области операторов РО во внутрь не допустима. 

При выполнении области операторов РО (в том числе и расширен- 
ной области) не допускается изменение значений і, т., т», т, хотя 
последние при этом могут быть использованы (например, в качестве 
индексов). 


6.2.3. Операторы ввода — вывода 


6.2.3.1. СПИСКИ ВВОДА-ВЫВОДА 


Список ввода задает идентификаторы переменных и элементов мас- 
сива, которым присваиваются значения при вводе. Список вывода 
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задает обращения к переменным и элементам массива, значения ко- 
торых передаются во внешнюю среду. Списки ввода и вывода имеют 
одинаковую форму. | 

Список — это: 

простой список, 

простой список, заключенный в скобки, 

список типа цикл, 

два списка, разделенные запятой. | 

Списки формируются следующим образом. Простой список — это: 

идентификатор переменной, 

идентификатор элемента массива, 

идентификатор массива, 

два простых списка, разделенных запятой. 

Список типа цикл — это список, за которым следует запятая и 
спецификация цикла. Вся эта структура заключается в скобки. 

Спецификация цикла имеет один из следующих форматов: 


і = 1, Т, ТЗ 
ИЛИ 
ГЕ, 


Элементы /, т;, т, и т в спецификации цикла имеют то же значе- 
ние, что и в операторе РО. Область спецификации цикла является 
элементом в списке типа цикл, и в списках ввода ї, т;, ть, т; могут 
появляться в этой области только в индексах. | 

Элементы списка определяются в порядке их следования слева на- 
право. Элементы списка в списке типа цикл определяются для всех 
повторений цикла. 


6.2.3.2. ОПЕРАТОРЫ ВВОДА-ВЫВОДА 


_ Имеется два типа операторов ввода-вывода: 

1. Операторы, непосредственно осуществляющие обмен информа- 
цией с внешними устройствами, или операторы обмена. . 

2. Вспомогательные операторы ввода-вывода. 

К первому типу относятся операторы КЕАР и МВІТЕ, осуществ- 
ляющие передачу записей последовательных файлов, ввод и вывод 
данных с которых выполняется последовательно запись за записью, 
во внешнюю память и из внешней памяти соответственно. Под записью 
понимается логически завершенная группа данных. 

Ко второму типу относятся операторы ВАСК$РАСЕ и ВЕМІМ№Р, 
которые обеспечивают установку в определенное положение внешних 
файлов, и оператор ЕМРЕШЕ, с помощью которого оформляется гра- 
ница внешних файлов. 

Обозначим в описаниях отдельных операторов ввода-вывода через и 
и / устройства ввода-вывода и спецификации формата, соответственно: 
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и может быть или целой константой, или целой переменной, обра- 
шение к значению которой определяет устройство; / — обозначает 
метку оператора ЕОКМАТ или идентификатор массива. | 


6.2.3.2.1. Операторы обмена 


Каждый из операторов ВЕАР и МКІТЕ может содержать список 
идентификаторов простых переменных, переменных с индексами и 
массивов. Элементам списка присваиваются значения при вводе в опе- 
ративную память; при выводе их значения передаются из оператив- 
ной памяти на внешнее устройство. 

Для внешних носителей запись — это количество информации, 
которое связано с единицей внешнего носителя (перфокарта, зона маг- 
нитной ленты, строка на устройстве печати). 

Записи могут быть форматными и бесформатными. Форматная за- 
пись представляет собой строку символов, допустимых в текстовых 
константах. Передача таких записей требует обращения к специфика- 
ции формата для определения расположения и способа передачи этих 
записей. Количество записей, передаваемое при выполнении опера- 
торов ввода и вывода по формату, определяется списком переменных 
в операторах ВЕА”Р и МВІТЕ и спецификацией формата, к которой 
обращается данный оператор обмена. 

Бесформатная запись представляет собой строку значений. 

При выполнении форматного или бесформатного оператора КЕАР 
необходимые записи на внешнем носителе должны быть соответствен- 

но форматными или бесформатными. 
| Оператор КЕАР с форматом 
Оператор КЕАР с форматом имеет один из следующих форматов: 


РЕАр(и, РЕ 
ИЛИ 
ВЕАР(и, ђ 


Здесь К — список. | 

Выполнение этого оператора вызывает считывание в оперативную 
память очередных записей с носителя, определяемого значением и. 
Информация считывается и преобразуется в соответствии со специфи- 
кацией формата, задаваемого с помощью ў. Вводимые значения при- 
сваиваются элементам списка К (см. 6.2.3.1). Вторая разновидность 
оператора используется для переопределения информации, заданной 
в операторе ЕОВМАТ с меткой ў форматом Н (см. 6.3.1.10.6). 

Оператор МКІТЕ с форматом У: 

Оператор \ВТТЕ с форматом имеет один из следующих форматов 


ХУРІТЕ. (и, РА 


ИЛИ 


° МЕГТЕ(и, р 


Здесь А — список. 

При выполнении этого оператора на носителе, определяемом зна- 
чением и, формируется очередная запись. Список А определяет после- 
довательность выводимых значений. Эти значения преобразуются и 
размещаются на внешнем носителе в соответствии со спецификацией 
формата, задаваемого с помощью {. При отсутствии в операторе спис- 
ка К оператор ЕОВМАТ с меткой { должен содержать только Н и Х 
форматы. 

Бесформатный оператор РЕА 

Бесформатный оператор ВЕАР имеет один из следующих форматов 


КЕАР(и)А | 
ИЛИ 
КЕАР(и) 


Здесь К — список. 

При выполнении этого оператора поле каждой переменной из спис- 
ка К заполняется символами, составляющими очередную запись на 
носителе, определяемом значением и. Так как формат не задается, 
то поле переменной заполняется информацией, составляющей всю 
запись (т. е. информацией, размещенной на всей перфокарте или зоне 
магнитной‘ ленты). 

При выполнении оператора чтения, заданного последним форматом 
(КЕАР (и)), считываемая информация использоваться не может, 
так как отсутствует список переменных, которым должны быть при- 
своены значения. Эта разновидность оператора используется для про- 
пуска записей на носителе, определяемом значением и. 

Бесформатный оператор МР ТЕ 

Бесформатный оператор МРІТЕ имеет следующий формат: 


МКІТЕ (и) 


Здесь ё — список. 

При выполнении этого оператора на носителе, определяемом. зна- 
чением и, формируется очередная запись, являющаяся последователь- 
ностью значений, задаваемых списком Ё. Выводимая информация по- 
ступает на внешний носитель без преобразования. | 


6.2.3.2.2. Вспомогательные операторы ввода-вывода 


Имеется три разновидности вспомогательных операторов ввода- 
вывода: | | а ў 

1. Оператор РЕҸМІМР 

2. Оператор ВАСК$РАСЕ 


3. Оператор ЕМРЕШЕ 
Оператор КЕМІМр 
Оператор КЕ\М/ПМО имеет следующий формат: 


ВЕМИМО и 


Выполнение этого оператора вызывает установку носителя с но- 
мером и в начальное положение, т. е. к началу первой информацион- 
ной зоны первого файла. А 

Оператор ВАСК$ЗРАСЕ 

Оператор ВАСКЅРАСЕ имеет следующий формат: 


ВАСК$РАСЕ и 


При выполнении этого оператора осуществляется шаг назад на 
одну запись на носителе, обозначенном номером и. Если носитель, 
определяемый значением и, находится в начальном положении, то вы- 
полнение этого оператора не производит никаких действий. 

Оператор ЕМРЕТЕЕ 

Оператор ЕМРЕП-Е имеет следующий формат: 

ЕМОЕШЕ и 

Выполнение этого оператора вызывает запись признака конца фай- 
ла на носителе, определяемом значением и. Признаком конца файла 
является особая запись, отмечающая границу последовательного фай- 
ла. Действие неопределено, если признак конца файла встречается 
во время выполнения оператора КЕАР. 


6.2.3.3. ВЫВОД ФОРМАТНЫХ ЗАПИСЕЙ НА ПЕЧАТЬ 


При подготовке форматных записей для вывода на печать следует 
иметь в виду, что первый символ такой записи не печатается; он слу- 
жит для управления печатью, осуществляемого согласно правил, 
приведенных в табл. 14 (см. стр. 66). 


6.3. Невыполняемые операторы 


Имеется пять видов невыполняемых операторов: 
Операторы спецификаций 

Оператор начальных данных 

Оператор ЕОКМАТ 

Операторы определения функций 

Операторы подпрограмм 


И 


6.3.1. Операторы спецификаций 


Имеется пять типов операторов спецификаций: 
1. Оператор РІМЕМЗІОМ№ 
2. Оператор СОММОМ 
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З. Оператор ЕОЛУАГЕМСЕ 
4. Оператор ЕХТЕВ МАГ, 
5. Операторы спецификации типа 


6.3.1.1. ОПИСАТЕЛЬ МАССИВА 


Описатель массива специфицирует массив, используемый в данной 
программной единице. Описатель массива состоит из идентификатора 
этого массива и списка размерностей, определяющих размерность дан- 
ного массива (одна, две или три) и размеры массива по каждому изме- 
рению. | 

Описатель массива имеет следующий формат: 


9 (1) 
Здесь о — идентификатор массива; 

і — список индексов описателя, состоящий из одного, двух или 
трех индексных выражений, представляющих собой поло- 
жительные константы или простые переменные целого типа. 
Индексы в списке индексов отделяются друг от друга за- 
пятыми. Если список { не содержит переменных, он назы- 
вается постоянным списком индексов описателя. 


6.3.1.2. ФУНКЦИЯ УПОРЯДОЧЕНИЯ ЭЛЕМЕНТОВ МАССИВА 
И ЗНАЧЕНИЕ ПРИВЕДЕННОГО ИНДЕКСА 


В табл. 16 (см. стр. 103) приведены правила вычисления значения 
приведенного индекса, определяющего данный элемент массива, и мак- 
симальное значение этого индекса. 
_ Значение функции упорядочения элементов массива получается 
путем прибавления единицы к содержимому колонки «Значение при- 
веденного индекса». 


6.3.1.8. РЕГУЛИРУЕМЫЕ РАЗМЕРЫ 


Если какой-либо из размеров в описателе массива задан иденти- 

фикатором, то этот массив называется массивом с регулируемыми 
размерами, а соответствующие идентификаторы — идентификаторами, 
регулирующими размеры. 
_ Массивы с регулируемыми размерами допускаются только во внеш- 
них процедурах. Список формальных параметров таких процедур 
должен содержать идентификатор массива и идентификаторы пелых 
переменных, обозначающих регулируемые размеры. Значения факти- 
ческих параметров, задающих размеры массива, должны быть опре- 
делены до обращения к процедуре и немогут становиться неопределен- 
ными или переопределяться во время выполнения процедуры. 
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6.3.1.4. ОПЕРАТОР Р1МЕМЗ1ОМ , 


Оператор ОІМЕМЅІОМ имеет следующий формат: 
ОІМЕМЅІОМ.-0;,:0,, 4..0: 


Здесь каждое и, — описатель массива (1 < і < и). 

Оператор РІМЕМЅІОМ используется для указания максимальных 
размеров массивов, с которыми работает данная программная еди- 
ница. 


6.3.1.5. ОПЕРАТОР СОММОМ 


Оператор СОММОМ имеет следующий формат: 
СОММОМ/Х, /а;/ ... /Х,/а,, 


Здесь каждое а, — непустой список идентификаторов переменных, 
идентификаторов массивов или описателей мас- 
сивов с постоянными границами индексов, 

каждое х, — идентификатор, являющийся наименованием об- 
шего блока данных, или пусто (если х; — пусто, 
первые две косые черты необязательны). 

В любом операторе СОММОМ переменные, перечисленные между 
двумя наименованиями общих блоков х, и хьр или между наимено- 
ванием блока и концом оператора, объявляются входящими в блок х. 
Все элементы, следующие за отсутствующими наименованиями бло- 
ков, объявляются входящими в один непомеченный общий блок. 

Оператор СОММОМ используется для совместного использования 
одних и тех же единиц памяти переменными, описанными в разных 
программных единицах. А. | 

Размеры помеченных общих блоков с одним и тем же наименова- 
нием в различных программных единицах выполняемой программы , 
должны быть одинаковыми. | 

Размеры непомеченного общего блока в различных программных 
единицах выполняемой программы могут быть разными, однако раз- 
мер непомеченного общего блока в процедурах не должен превышать 
размера непомеченного общего блока в главной программе. 

Указание формальных параметров в списке оператора СОММОМ 
не допускается. | | 


6.3.1.6. ОПЕРАТОР ЕООІУАТЕМСЕ 


Оператор ЕОСИУАГЕМСЕ имеет следующий формат: 
БОГЛУАТЕКСЕ (№), (№), ..., (6) 


Здесь каждое К, — список, элементом которого может быть идентифи- 
катор простой переменной (не формальный параметр) или переменной 
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с индексами, заданными константами. Количество элементов в таких 
списках должно быть не менее 2. Число индексных выражений долж- 
но соответствовать размерности, заданной в описателе соответствую- 
щего массива, или равняться единице (в последнем случае размер мас- 
сива определяется функцией упорядочения элементов массива). 

Оператор ЕФОТУАГЕМСЕ предназначен для разрешения совмест- 
ного использования одного и того же поля памяти нескольким пере- 
менным в данной программной единице. | | 

Размер общего блока в программной единице — это сумма памя- 
ти, необходимой для элементов, включенных в списки операторов 
СОММОМ и ЕОМУАГЕКСЕ. 


6.3.1.7. ОПЕРАТОР ЕХТЕВМА!, 


Оператор ЕХТЕВМАТ, имеет формат: 
ЕТЕВМАТ Оса о 


Здесь и; — идентификатор внешней процедуры (1 < і < п). 

Появление идентификатора в операторе ЕХТЕВ МАТ, говорит о 
том, что данный идентификатор является идентификатором некоторой 
внешней процедуры, используемым в данной программной единице 
в качестве фактического параметра другой внешней процедуры. 


п 


6.3.1.8. ОПЕРАТОРЫ ТИПА 


Оператор типа имеет следующий формат: 
ОТОО, 


Здесь {і — это один из спецификаторов типа: р 
ІМТЕСЕК, КЕАГ, РООВЕЕ РРЕСІЅІОМ, СОМРІЕХ, ОСІСАІ. 
о; — идентификатор переменной, или с 
идентификатор массива, или 
‚ идентификатор функции или 
описатель массива. 
Оператор типа используется для явного объявления типа пере- 
менной, массива или функции; он может быть использован также для 
задания размеров массивов посредством их описателей. 


6.3.1.9. ОПЕРАТОР НАЧАЛЬНЫХ ДАННЫХ 
Оператор начальных данных имеет следующий формат: 
РАТА #;/4,/, Р,/0,/, и. А! 


Здесь каждое Р, — список идентификаторов переменных или элемен- 
тов массивов; оО А | 
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каждое 4, — список констант, возможно со знаками, любой из 
которых может предшествовать повторитель вида 
й; 
где ј — целая константа без знака. 
Элементы списков разделяются запятыми. Указание формальных 
параметров в списках Ё, не допустимо. . 
Число элементов в каждом из списков К, и й, (с учетом повторите- 
лей) должно быть одинаковым. | 
Оператор РАТА используется для задания начальных значений, 
указанных в списках 4,, соответствующим переменным из списков | 


6.3.1.10. ОПЕРАТОР ЕОКМАТ 


Оператор ЕОВМАТ используется в связи с вводом-выводом фо- 
рматных записей для указания количества позиций, занимаемых дан- 
ными, и способа редактирования при переходе от внутреннего пред- 
ставления информации к внешним строкам (записям) и обратно. 

Оператор ЕОКМАТ имеет следующий формат: 

ЕОЮМАТ (совокупность описателей полей ввода-вывода) 

Совокупность описателей полей представляет собой последова- 
тельность отдельных описателей поля, разделенных запятыми или 
одной или несколькими наклонными черточками «/». 

Для указания способа редактирования используются некоторые 
буквы алфавита, называемые литерами формата (или форматами). 


6.3.1.10.1. Описатели полей 


В стандарте языка ФОРТРАН определены девять описателей по- 
лей, имеющие следующие форматы: 
$7Е ил. 4 
5Ео.а 
Со. 
ро .а 
гію 
ү] хо 
ГА 
НИ. йо... Р, 
Х 


Ш) 
Здесь 1. Буквы Е, Е, С, р, Г, Г, А, Н, Х — литеры формата. 
9. ш — ненулевая целая константа без знака, определяющая 
ширину поля во внешнем представлении. . 
3. 4 — определяет число цифр в дробной части внешнего пред- 
ставления (исключая формат С); 
4. г — повторитель, задающий число повторений следующего 
за ним описателя поля (может отсутствовать); 
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5. $ — масштабный множитель (может отсутствовать): 
6. каждое А, — один из символов, допустимых в данном про- 
цессоре. 
Задание ширины поля & обязательно для всех форматов. Для описа- 
телей вида 0. указание 4 обязательно, даже если оно равно нулю. 
и должно быть большим или равным 4. 10 | 
Разделители полей 
Один оператор ЕОКМАТ описывает одну или несколько единиц 

ввода-вывода (записей). Разделитель «/» или закрывающая скобка 
в конце оператора указывает на переход к новой единице ввода-вывода 
‚ (перфокарте, строке на бумажной ленте и др.). 


6.3.1.10.2. Спецификации повторения 


Повторение описателей полей (кроме оН и шХ) задается посредст- 
вом повторителя г. 

Повторение групп описателей полей может быть задано путем за- 
ключения их в круглые скобки и, возможно, написанием перед левой 
скобкой коэффициента повторения. Если коэффициент повторения 
группы не задан, то он полагается равным единице. 


6.3.1.10.3. Масштабный множитель 


_ Указатель масштабного множителя $ определен для использования 
с форматами Е, Е, Сир и имеет формат: 


ПР 


Здесь и — целая константа, называемая масштабным. множителем. 
Общее правило действия масштабного множителя: число во внеш- 
нем представлении равно числу во внутреннем представлении, умно- 


женному на 10". Отсюда следует, что вводимые значения будут разде- 


лены на 10”, а выводимые значения будут умножаться на 10”. Отсутст- 
вие масштабного множителя соответствует и = 0. С момента установле- 
ния масштабный множитель применяется ко всем используемым впо- 
следствии форматам Е, Е, С, Р до тех пор, пока не будет установлен 
другой масштабный множитель. 


6.3.1.10.4. Числовые преобразования 


Форматы Г, Е, Е, Сир используются для спецификации при вводе- 
выводе данных типов целого, вещественного, комплексного и повышен- 
НОЙ ТОЧНОСТИ. | 

1. Для всех числовых преобразований ‘при вводе пробелы вос- 
принимаются как нули. Знак плюс может быть опущен. Поле, состо- 
ящее из всех пробелов, рассматривается как нулевое. 
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‚2. Для форматов Е, Е, аи р при вводе десятичная точка, стоя- 
_ щая в. поле ввода, отменяет неявное овведсленно места точки, задавае- 
мое с помощью 4. 

3. При всех способах редактирования чисел при выводе результат 
редактирования выравнивается вправо и, если число выводимых сим- 
волов окажется меньше ширины поля, оно слева заполняется пробе- 
лами. 

4. При выводе перед отрицательным числом всегда должен стоять 
знак минус; перед положительным знак может быть опущен. 

5. Число символов при выводе не должно превышать ширины поля 
вывода. 

Преобразование данных целого типа. Преобразование данных це- 
лого типа при вводе-выводе осуществляется с помощью формата І. 

Общий вид формата Г: 


Іо 


Формат І при выводе означает перевод целого числа из вещественного 
представления в десятичное число, которое и выводится при выводе 
и, наоборот, при вводе. Общее число позиций, занимаемых числом на 
внешнем носителе, включая знак и пробелы слева, равно ш. Исполь- 
зование десятичной точки в формате І не допускается. 

Преобразование данных вещественного типа. Для преобразования 
данных вещественного типа при вводе-выводе используются форматы 
ЕичЕ: 

ФорматЕ 

Общий вид формата Е: 


Е.а 


Формат Е означает, что вещественное число из внутреннего пред- 
ставления будет преобразовано в десятичное число без порядка при 
выводе и, наоборот, десятичное число без порядка будет преобразовано 
во внутреннее представление при вводе данных. Полное число пози- 
ций, занимаемых полем на внешнем носителе, включая знак, десятич- 
ную точку и все пробелы, равно шо. Если десятичная точка при вводе 
данных не отперфорирована, то количество позиций, находящихся 
после десятичной точки, считается равным 4. При выводе десятичная 
точка будет расположена так, что после нее будет сохранено а пози- 
ЦИЙ. 

Формат Е 

Общий вид формата Е: 


Е.а 


Формат Е определяет перевод числа из внутреннего представления в 
число с десятичным порядком при выводе и обратный перевод числа 
с десятичным порядком во внутреннее представление при вводе. _ 


276 


Основная форма внешнего поля при вводе состоит из знака, кото- 
рый может быть опущен, за которыми следует строка цифр, содержа- 
щая, возможно, десятичную точку; за основной формой следует по- 
рядок в одной из следующих форм: 

1. Константа целого типа со знаком. 

2. Буква Е, за которой следует целая константа. 

З. Буква Е, за которой следует целая константа со знаком. | 

Внешнее поле при выводе содержит пробелы, если необходимо, 
за которыми следует знак минус (если значение отрицательное), или, 
возможно, знак плюс. Далее следует строка цифр, содержащая деся- 
тичную точку. Общее количество позиций поля равно о, причем сюда 
включаются позиции для знака, десятичной точки, порядка и пробелов. 
Количество значащих цифр мантиссы после десятичной точки равно а 
(позиции, занимаемые порядком, не учитываются). 

Преобразование данных типа повышенной точности. Для преобра- 
зования данных типа повышенной точности при вводе-выводе исполь- 
зуется формат БВ. 

Общий вид формата р: 

Ри.а 


Формат Р означает, что число, имеющее внутреннее представление 
как данное повышенной точности, будет преобразовано в десятичное 
число с порядком повышенной точности или наоборот. 

Основная форма внешнего поля при вводе такая же, как для преоб- 
разования данных вещественного типа. 

Внешнее поле для вывода такое же, как для формата Е, только в 
порядке буква Е заменяется буквой О. 

Преобразование данных комплексного типа. Так как комплексное 
данное состоит из пары данных вещественного типа, его преобразова- 
ние определяется двумя последовательно интерпретируемыми описа- 
телями вещественных преобразований, первый из которых использует- 
ся для преобразования действительной части, второй — мнимой. 


6.3.1.10.5. Преобразование данных логического типа 


Для преобразования данных логического типа при вводе-выводе 
используется формат І. | 
Общий вид формата 1: 
Го 


Формат Г. означает, что внешнее поле занимает шо позиций как стро- 
ка информации. ) | 

Внешнее поле для ввода должно состоять из пробелов (необяза- 
тельно), за которыми следует один из символов Т или Е. За этими сим- 
волами могут располагаться буквы, дополняющие до слов ТВОЕ и 
ГАТЅЕ соответственно. · | | ЖХ 
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68. 1.10.6. Описатель поля для данных 
текстового типа 


Текстовую информацию можно передавать с помощью двух описа- 
телей полей: шН и Ам. | 

Формат Н вызывает ввод или вывод текстовой информации, 
содержащей 0 символов, расположенных непосредственно за описа- 
телем ИН в самом формате. 

Формат А вызывает ввод или вывод 0 текстовых символов, 
которые задаются элементом списка. 


6.3.1.10.7. Описатель поля, заполненного пробелами 


Описатель поля пробелов имеет вид 0Х. 
При вводе формат Х вызывает пропуск 0 символов вводимой 
записи. При выводе — во внешнюю запись вставляется & пробелов. 


6.3.1.10.8. Описание формата в массивах 


Любой оператор форматного ввода-вывода может вместо метки 
оператора ЕОКМАТ содержать идентификатор массива. Если к мас- 
сиву обращаются таким образом, то в первой записи этого массива 
должна содержаться спецификация формата, заданная так же, как и в 
операторе ЕОВ МАТ. 

На информацию, содержащуюся в массиве после правой скобки 
спецификации формата, никаких ограничений не накладывается. 

Формат Н не может быть частью спецификации формата в массиве. 

Спецификация формата может размещаться в массиве с помощью 
оператора ЕАО; с форматом А или с помощью оператор начальных 
данных. 


6.3.1.11. ВЗАИМОДЕЙСТВИЕ ФОРМАТНОГО УПРАВЛЕНИЯ СО СПИСКОМ ВВОДА- 
ВЫВОДА 


‚Начало выполнения оператора КЕАР или У\УЕТЕ с форматом 
возбуждает форматное управление. Каждое действие форматного 
управления зависит от информации, задаваемой совместно очередным 
элементом списка ввода-вывода, если таковой имеется, и очередным 
описателем поля из спецификации формата. Если задан список ввода- 
вывода, то в списке форматов должен быть хотя бы один формат, от- 
личный от АХ и РН. 

Если выполняется оператор ВЕАР с форматом, то сначала счи- 
тывается одна запись, а последующие записи читаются только в том 
случае, если этого требует формат. 

При выполнении оператора М№БІТЕ с форматным . управлением 
вывод записи происходит каждый раз, когда спецификация формата 
задает начало новой записи. 
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7. Процедуры и сопрограммы данных 


В языке ФОРТРАН имеется четыре вида процедур: _ 

1. Операторные функции 

2. Встроенные функции 

3. Внешние функции 

4. Подпрограммы | 

Первые три вида называются функциями, или процедурами функ- 
ций. Процедуры последнего вида называются подпрограммами или 
процедурами подпрограмм. Внешние функции и подпрограммы назы- 
ваются внешними процедурами. 


7.1. Операторные функции 


Операторная функция имеет следующий формат: 
а (р) = 6 
Здесь а — идентификатор функции, 
В — список формальных параметров, 
б — выражение. | 
Описанная конструкция является определением операторной функ- 
ции и относится к невыполняемым операторам. Эти операторы должны 
быть расположены в программе после операторов спецификации перед 
первым выполняемым оператором. Баи 
Кроме формальных параметров, выражение $ может содержать 
только: | | | 
|} нетекстовые константы, 
2) идентификаторы переменных (в томчисле переменныхсиндексами), 
3) указатели встроенных функций, 
4) указатели ранее описанных операторных функций, 
_5) указатели внешних функций. 
Обращение к операторной функции допустимо лишь в данной про- 
граммной единице и осуществляется посредством ее указателя как 
первичного выражения в арифметическом или логическом выражениях. 


7.2. Встроенные функции 


Указатель встроенной функции имеет следующий формат: 


Г (а). 
Здесь ў — идентификатор функции; 
а — список фактических параметров. 

Идентификаторы встроенных функций заранее определены про- 
цессором и имеют специальный смысл и тип. · 

Обращение к встроенной функции производится путем использо- 
вания ее указателя в качестве первичного выражения в арифметиче- 
ских или логических выражениях. ао р 
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Список встроенных функций, предусмотренных в стандарте языка 
ФОРТРАН, приведен в таблице 23. 


Таблица 23 


Получение дейст- 
вительной части 
комплексного: ар- 
гумента 


Встроенные функции 


Кол-во 
Встроенная функция Определение о ЕЕ 
тов аргумента функции 
Абсолютное зна- [а] 1 | АВ$ веществ. веществ. 
чение 1 | АВ$ целое целое 
1 | РАВ$ повыш. Т. повыш. Т. 
Усечение . Наибольшее це- 1 [ АІЧТ веществ. веществ. 
лое < [а |, взя- 1 ІТ веществ. целое 
тое со знаком 1 ЕШМТ повыш. Т. целое 
Остаток * а (той а.) 2 | АМОр | веществ. веществ. 
2 | Мор целое целое 
Выборка наиболь- | Мах (аи, а...) | >2 | МАХО целое целое 
шего значения | >92 | АМАХО | целое веществ. 
>92 | МАХ! веществ. целое 
>92 | АМАХІ | веществ. веществ. 
>2 | РМАХІ | повыш. повыш. : 
Выборка наи-` | :/1іл- (@1, аа...) >2 | АМПМО | целое веществ. 
меньшего значе- >2 | АМІМІ | веществ. веществ. 
НИЯ >2 | ММО целое целое 
>92 | МП веществ. целое 
>2 | ОМИ повыш. повыш. 
Преобразование 1 | ЕГОАТ | целое веществ. 
‘из целой формы 
в вещественную 
Преобразование 1 ТЕХ | веществ. целое 
из вещественной 
формы в целую 
Изменение знака | |4, | взятое со хам веществ. веществ. 
знаком а, 2 | 5@м целое целое 
р 2 | ОЗ@М | повыш. т. повыш. т. 
Положительная а — тт (а1, аз) 9 ОМ веществ. веществ. 
разность 2 1 ШІМ целое целое 
Получение наи- 1 УМаг, повыш. Т. веществ. 
большей знача- 
щей части аргу- 
мента повышен- 
НОЙ ТОЧНОСТИ 
1 | ВЕАГ комплекс. | веществ. 


Е. Бо ЗЕ ае ЕСИ АВР ЗЧ ВВ НЕЕ ЗВЕНЕ ВЕНЕ ЗОВИ ВАЕ БНА Е ЦИА 

. * Функция МОР или АМОР (а, а) определяется как а; — [а1/а>] · а», где |х| 
является целым, величина которого не превосходит величины х и знак которого 
совпадает со знаком х. СА 2 раа БА, 
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Продолжение табл. 23 


Тип Н 
Кол-во 
Встроенная функция Определение еа иса 
тов аргумента функции 
Получение мни- 1 | АІМАА | комплекс. | веществ. 
мой части комп- 
лексного аргу- 
мента 
Преобразование #5 РВЕВБ веществ. повыш. т. 
вещественного 
аргумента в фор- 
му повышенной 
ТОЧНОСТИ 
Получение ком- | 2; -а, 9—1 2 | СМРІХ | веществ. комплекс. 
плексного числа | 
из Двух вещест- 
венных аргумен- 
тов | | | 
Получение числа, 1 | СОМ№Ја | комплекс. комплекс. 


сопряженного 
комплексному ар- 
гументу 


7.3. Внешние функции 


Внешняя функция определяется внешне по отношению к той про- 
граммной единице, которая к ней обращается. В языке ФОРТРАН 
определены две разновидности внешних функций: 

внешние ‘функции, описанные операторами, отличными от опера- 
торов языка ФОРТРАН и называемые основными внешними функ- 
ЦИЯМИ; 

внешние функции, описанные посредством операторов ФОРТРАНа, 
первым оператором которых является оператор ЕОМСТІОМ, называе- 
мые процедурами функций. 


7.3.1. Основные внешние функции 


В табл. 24 приведен список основных внешних функций, реали- 
зация которых предусмотрена стандартом языка ФОРТРАН. 

Обращение к основным внешним функциям производится в соот- 
ветствии с общими правилами обращения к внешним функциям 
(см. далее). 

Параметры, для которых результаты этих функций математически 
неопределены или которые имеют тип, отличный от указанного в 
табл. 24, использовать запрещается. | Е 
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Таблица 24 
Основные внешние функции 


Коли- Е Тип 
Основная библиотеч- ооо ление ря Иденти- 
ная функция мен- Осер аргументы функции 
тов 
Экспонента ей 1 | ЕХР веществ. веществ. 
1 | РЕХР повыш. Т. повыш. т. 
1 5СЕХР комплекс. комплекс. 
Натуральный ло- | 06, (а) 1 | АГОЧ | веществ. веществ. 
гарифм в р) 0.6 повыш. т. повыш. т. 
| Ре СЕОС комплекс. комплекс. 
Десятичный ло- | [осто (0) 1 | АТОС10 | веществ. веществ. 
гарифм | 1 | 20410 | повыш. т. повыш. т. 
Тригонометричес- | $1 (а). 1 |1 ЯМ веществ. веществ. 
кий синус 1 | РЫМ повыш. т. повыш. т. 
| 11 СУМ комплекс. | комплекс. 
Тригонометричес- | с0$ (а) 12605 веществ. веществ. 
кий косинус 1 | рСОЅ повыш. Т. повыш. Т. 
174 6605 комплекс комплекс. 
Гиперболический | {ий (а) 1 | ТАМН | веществ. веществ. 
тангенс 
Корень квадрат- | 21/2 КУЗОВ веществ. веществ. 
НЫЙ 1 | ОЗОВТ | повыш. т. повыш. т. 
1 | СЗОВТ | комплекс. | комплекс. 
Арктангенс агсапт (а) 1 | АТАМ веществ. веществ. 
1 | РАТАМ | повыш. т. повЫыШш. т. 
агсіап (а1/аз) 2 | АТАМ | веществ. веществ. 
9 | РАТАМ№ | повыш, т. повыш. Т. 
Остаток 1 ау (тойа,) 2 | ОМОР | повыш. т. повЫыш. т. 
Модуль 1 | САВЅ комплекс. | веществ. 


1 Функция ОМОР (а;, а») определяется как а; — [41/4] · а, где [х] является це- 
лым, величина которого не превышает величины х и знак которого совпадает со 
знаком х. — | 


7.3.2. Процедура функции 


Первым оператором в описании. процедуры функции должен быть 
оператор ЕОМСТТОМ, имеющий следующий формат: 


{ ЕОМСТІОМ 1 (а) 


Здесь ѓ — один из спецификаторов типа: МТЕСЕК, КЕАГ, РООВІЕ 
| РРЕСІЅІОМ, СОМРІЕХ, ГОС1САЕГ или пусто; 
} — идентификатор определяемой функции; 
а — список формальных параметров, каждый из которых есть 
идентификатор переменной, идентификатор _ массива или 
идентификатор внешней процедуры. 
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Процедура функции может содержать любые операторы, кроме 
операторов ВЕОСК РАТА, ЗОВКООТИМЕ, еще одного оператора 
ЕОМСТІОМ или оператора, который прямо или косвенно ссылается 
на определяемую функцию. 

Процедура функции должна содержать по меньшей мере один опе- 
ратор КЕТОЮВМ. 

Идентификаторы, являющиеся формальными параметрами, не мо- 
гут появляться в операторах ЕФОТУАГЕМСЕ, СОММОМ или "РАТА 
в данной процедуре функции. 

Идентификатор функции не должен появляться в невыполняемых 
операторах данной программной единицы, за исключением оператора 
ЕОМСТІОМ. Идентификатор функции должен появиться как иденти- 
фикатор переменной, значение которой определяется в теле данной 
процедуры в процессе каждого ее выполнения. Это значение перемен- 
ной, определенное к моменту выполнения оператора КЕТОРВМ в этой 
процедуре, является значением данной процедуры функции. 

Обращение к внешней функции производится посредством исполь- 
зования ее указателя в качестве первичного выражения в арифмети- 
ческом или логическом выражении. Фактические параметры должны 
соответствовать формальным параметрам процедуры по количеству, 
типу и порядку следования. Фактический параметр в обращении к 
внешней функции может быть: 

1. Идентификатором переменной 

2. Идентификатором элемента массива 

3. Идентификатором массива | 

4. Любым другим выражением 

5. Идентификатором внешней процедуры 


7.4. Процедура подпрограммы 


Внешняя подпрограмма описывается вне программной единицы, 
которая к ней обращается. Внешняя подпрограмма, описываемая опе- 
раторами языка ФОРТРАН, первым оператором которой является 
оператор ЗОВКОЧТИМЕ, называется процедурой подпрограммы. 

Оператор ЗОВКОЧТИМЕ имеет один из следующих форматов: 


ЅОВКООТІМЕ $ (а) 
ЅОВКООТІМЕ $ 


Здесь $ — идентификатор описываемой подпрограммы; 

а — список формальных параметров, каждый из которых может 
быть идентификатором массива, идентификатором перемен- 
ной или идентификатором внешней процедуры. 

Процедура подпрограммы может содержать любые операторы, кро- 
ме операторов ВГОСК РАТА, ЕОМСТІОМ, еще одного оператора 


28 


ИЛИ 


Ѕ0ВВООТ ПМЕ или оператора, который прямо или косвенно ссылае- 
тся на определяемую подпрограмму. 

Процедура педпровраммы должна содержать по меньшей мере один 
оператор ВЕТОВМ№ | 

Идентификатор подпрограммы не должен использоваться ни в 
одном из операторов данной процедуры, кроме оператора $50ВВОО- 
ТИМЕ. 

Идентификаторы, являющиеся формальными параметрами в этой 
процедуре, не могут появляться в операторах ЕОЛУАГЕКМСЕ, 
СОММОМ, "РАТА в данной программной единице. 

Обращение к подпрограмме выполняется посредством. оператора 
САГГ. Формальные и фактические параметры должны соответство- 
вать друг другу по количеству, типу и порядку следования. Исключе- 
нием из правила согласования типов является использование тексто- 
вых констант в качестве фактических параметров. Фактический пара- 
метр при обращении к подпрограмме может быть: 

. Текстовой константой 
Идентификатором переменной 
Идентификатором элемента массива 
Идентификатором массива 

Любым другим выражением 
Идентификатором внешней процедуры. 

Если идентификатор внешней процедуры является фактическим 
параметром, то этот идентификатор (и только такой) должен быть опи- 
сан в операторе ЕХТЕКМАГ. в вызывающей программной единице. 


Со сл со № = 


7.5. Сопрограмма ВОСК РАТА 


Сопрограмма ВГОСК РАТА, называемая сопрограммой начальных 
данных, должна начинаться с оператора ВОСК РАТА, имеющего 
следующий формат: 

ВтоСК РАТА 


Сопрограмма ВІОСК РАТА используется для присвоения на- 
чальных данных элементам помеченных общих блоков. Эта сопрограм- 
ма может содержать только: 

операторы типа, 

операторы ЕООҮАГЕМСЕ, 

"РАТА, 
РІМЕМЅІОМ 
СОММОМ. 


Форматы операторов ФОРТРАНа 


При представлении общих форматов языка приняты следующие 
обозначения: 
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1. Прописные латинские б 


служебных слов языка. 


уквы используются только для записи 


2. Основные символы, отличные от прописных латинских букв, 
представляют самих себя. Таковы следующие пять символов: | 


ЛАЯ 


3. Строчные русские буквы используются для записи метапонятий 
языка, т. е. общих синтаксических конструкций, вместо которых при 
записи конкретного оператора должны быть поставлены определенные 
языковые конструкции. Таковы: 


Обозначение в формате 


переменная 
выражение 


метка 
целое 
устройство 


идентификатор 

имя-блока 
список-фактических-пара- 
метров 
список-формальных-пара- 
метров 

список-элементов 


список-элементов- | 
список-элементов-2 
список-элементов-3 


список-констант 


список-размерностей 
список-формата 
список-меток 

целое-1 

целое-2 


Языковая конструкция 


идентификатор простой переменной 
или переменной с индексами 
арифметическое или логическое выра- 
жение 

метка | 
идентификатор переменной целого типа 
целая положительная константа или 
идентификатор переменной, значением 
которой является номер устройства 
идентификатор — 

идентификатор | 

список фактических параметров 


список формальных параметров 


список, элементами которого являются 
идентификаторы простых переменных, 
массивов или описатели массивов 
список, элементами которого являются 
идентификаторы простых переменных 
или переменных с индексами 

список, элементами которого являются 


‘идентификаторы простых переменных 


или описатели массивов 
список, элементами которого являются 
идентификаторы простых переменных 
или переменных с индексами 

список констант 


список размерностей 
список формата 
список меток 


. Целое: 


целое 
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целое-3 целое а, 


арифметическое-выражение арифметическое выражение 

логическое-выражение логическое выражение 

метка-1 метка | 

метка-2 | метка 

метка-3 метка 

простой-оператор оператор, отличный от оператора ВО 
| | или логического оператора Е 

восьмеричное целое восьмеричное число, состоящее 


не более, чем из 5 цифр 


4. В квадратные скобки заключены те части языковых конструк- 
ций, вхождение которых в формат оператора является необязатель- 
ным. Другими словами, наличие квадратных скобок в формате опера- 
тора означает, что языком допускается два вида оператора, один из 
которых получается при удалении из общего формата содержащихся 
в нем квадратных скобок, а второй при их удалении вместе с содержа- 
шейся внутри этих скобок языковой конструкцией. 

5. Фигурные скобки используются с двоякой целью: 

а) наличие после закрывающей фигурной скобки многоточия 03- 
начает допустимость в записи нескольких конструкций, тип которых 
определяется содержимым этих фигурных скобок; 

б) наличие нескольких конструкций, записанных в виде столбца 
внутри фигурных скобок, означает возможность выбора при построе- 
нии конкретного представителя данного вида оператора любой из 
этих конструкций. 

Ниже приведены общие форматы операторов ФОРТРАНа: 
переменная = выражение | 
АЗЗТО@М метка ТО целое 
ВАСК$РАСЕ устройство 
ВГОСК РАТА 
САГТ, идентификатор [(список-фактических-параметров)] 

СОММОМ {/имя-блока/список-элементов}... 


СОМРІЕХ 

грда А]. ЕОМСТІОМ идентификатор (список-фор- 
РООВГЕ РВЕСІЅІОМ№ мальных -параметров) 

МТЕСЕЮ 


СОМТІЧОЕ 

РАТА список-элементов-1/список-констант/ {,список-элементов- 1 /спи- 
сок-констант/}... 

О МЕМЗОМ идентификатор (список-размерностей {‚ идентификатор 
(список-размерностей)}... 

ОО метка идентификатор = целое-1,целое-2[, целое-3] 
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ГРОЦВЕЕ РВЕСІЅІОМ \ 

| СОМРЕВХ | 

аА Р н список-элементов-2 
ОСІСАІ, 

\ КЕАГ 


ЕМРЕПШ.Е устройство 

ЕБУАГЕМСЕ АЕО оеро: -1){, (список-элементов-1)}... 
идентификатор (список-формальных-параметров) = выражение 
РОВ МАТ (список-формата) 

СО ТО метка 

СО ТО целое, (список-меток) 

СО ТО (список-меток), целое 

Е (арифметическое-выражение) метка-1,метка-2,метка-3 

ГЕ (логическое-выражение) простой- оператор 

РАОЅЕ [восьмеричное] 


БЕА (устройство |. | 


КЕТОКМ 

РЕМИМО устройство 

ЅТОР [восьмеричное] 

ЗОВКООТИМЕ идентификатор [(список-формальных- параметров) 


етка 
МУРІТЕ (устройство | ЕИ 


метка 


И УИ [список-элементов-3] 


И [список-элементов-3] 


ОТВЕТЫ К ЗАДАНИЯМ 


ГЛАВА 1 


Порция 1 


1. Исходная. программа — это описание алгоритма решения задачи на одном 
из языков программирования (например, на ФОРТРАНе); рабочая программа — 
программа, полученная в результате работы транслятора, эквивалентная исходной 
программе. 

2. Транслятор переводит программу с некоторого языка программирования на 
язык конкретной вычислительной машины и определяет синтаксические ошибки, 
допущенные при написании исходной программы. 

3. Выполняемая программа на ФОРТРАНе может состоять из главной про- 
граммы или из главной программы и ряда внешних процедур и сопрограмм данных. 

4. Операторы подразделяются на выполняемые и невыполняемые. 

5. Операторы присвоения; 

операторы ввода-вывода информации; 
операторы управления. 


Порция 2 


1. 47. 
2. Шьем. стр. 10. 


Порция 3 


1. В ФОРТРАНе различаются два типа слов: служебные слова и слова поль- 


зователя. 
2. См. стр. 11. 


Порция 4 


1. Целые, вещественные, повышенной точности, комплексные, логические, тек- · 
стовые. | 
2. Значения логических данных следующие: .ТКОЕ., .ЕАГЅЕ.. 


Порция 5 


1. Константа — это данное, которое появляется в программе в явном виде. 
2. Можно. 
3. Определяет. 


Порция 6 


1. Целой называется константа, обозначающая целое десятичное число и не со- 
держащая в своей записи десятичной точки и порядка: 


Порция 7 


1. В ответах приведено по одному из возможных вариантов записи вещественных 
констант: | 
а) 347.0; 6) 74.32; в) —5100.; г) 1.Е15; д) 834Е—10; е) —20.0; 
ж) —45.21Е—12. 
2. а) запятую употреблять в записи констант нельзя, 
б) показатель степени должен быть целым, 
в) запятую использовать нельзя, 
г) нет десятичной точки, 
д) показатель степени должен быть целым, 
е) число слишком велико для большинства ЭВМ. 
З. а) да, б) да. 


Порция 8 
|. 375453214891.225400 
Порция 9 
1. а) (315.3, 2.22); 6) (21Е2, 2.1); в) (30Е2, —3.155) 
Порция 10 
1. Две: .ТЕОЕ. и .ЕАГЗЕ.. 
2: "Четыре: ТЕ, Ели Р”: 
Порция 11 


1. СННАЧАЛО; ЭНРЕЗУЛЬТАТ; 10НТАБЛИЦА. 23 


Порция 12 


1. 1), 2), 4), 5), 7), 11), 13), 15). 

2. а) 1) 938; 2) 345 000 000; 3) 3450; 4) —198; 5) 2 
б) 1) 938.; 2) 345Е6; 3) 3450.0; 4) —128.; 5) 2.0 

3. 1) .01; 2) 500.; 3) 300.0; 4) —255000.; 5) .0943 


4. 1) недопустима · 19) вещественная 
2) недопустима 20) целая 
3) недопустима 21) недопустима 
4) вещественная 22) недопустима 
5) вещественная 23) текстовая 
6) повышенной точности 24) недопустима 
7) комплексная 25) недопустима 
8) текстовая 26) текстовая 
9) вещественная 27) недопустима 
10) недопустима 28) недопустима 
11) недопустима 29) текстовая 
12) недопустима 30) недопустима 
13) целая 31) вещественная 
14) недопустима к 32) целая 
15) вещественная 33) вещественная 
16) текстовая’ 34) повышенной точности 
17) вещественная 35) повышенной точности 
18) повышенной точности _ 36) текстовая 
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Порция 13 


ГеСм2 стр. 19: 

2. Идентификатор используется для обращения к переменной. 

3. Обращение к переменной — это присвоение ей значения или извлечение ее 
значения. 
4. Пять: целые, вещественные, повышенной точности, комплексные, логические. 


Порция 14 
1. а), г) д), еж) 
Порция 15 
1) целый Т) вещественный 13) целый 
2) целый 8) вещественный 14) вещественный 
3) вещественный 9) целый 15) вещественный 
4) вещественный 10) вещественный 16) вещественный 
5) целый 11) вещественный 17) целый 
6) целый 12) целый 18) целый 
Порция 16 


1. Идентификаторы целых переменных: 


О М5 ЗАВОЕ,: Јо 
Идентификаторы вещественных переменных: 


А2, А2ВС, ААВ, АВВІ, АВАС, Е2, ро, ЕМО”, ВЕСІМ, ЅМІТН, АГСОГ, ВІМОЗ 


Последовательности символов, недопустимые в качестве идентификаторов пере- 
менных в языке ФОРТРАН: 


2А, А—2,Е(Х), А(2), АВСО71А,АВ.АС,АЭВС/,АВ+АС,В/АС,А»В,0.1.А, (ВАС), 125М 


2. а) вещественная переменная 3) вещественная переменная 
б) вещественная константа и) комплексная константа 
в) целая переменная к) целая переменная 
г) комплексная константа л) константа повышенной 
д) целая переменная точности 
е) вещественная константа м) текстовая константа 
ж) целая переменная н) текстовая константа 


о) текстовая константа 
р) целая константа 


Порция 17 


СОМРГЕХ ОК,О$,ОТ 
ГОС1САГ АІ,А2,АЗ | 
РОЧВЕЕ РКЕСГЗ!ОМ АІТ, ВПО 


Порция 18 


1. Шесть: целый, вещественный, повышенной точности, комплексный, логиче- 
ский, текстовый. 

2. Пять: те же, что и данные, кроме текстового. 

3. Идентификатор в этом случае может принадлежать к любому типу 
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Порция 19 


1. Пять. 

Порция 20 
а) Х+Ү+7 
б) А*Х+-В*«Ү--С»7, 
в) В-4-8$+:2 

Порция 21 
а) Х*+3--Ү 


б) (Х--У)*+3 


в) Х++2/Аж+24-Ү»х:2/В++24-7:92/Саа9 


г) А--(В--р)/(С-- Е) 
д) (А+Ү--В»«Х)/С-.Ха+4-1-3.0 


е) (С++2-4-р 2) (Сж+2—р =*9)--С*р/2.0--С 


ж) 5.«.Х—У-- Х+*4/(0.-В)—1.0 


Порция 22 


5 а) еат В АВЕ Е: 
б) 1) С+»2; 2) А.В; 
в). |) Хау; 2) АВ: 
г)- 1) Х+-3; 2) С„р; 
о) (А-+-В)+-(С+р)-+(Х * +3). 
2. ба). 


3) (А*+В)-Е (С+=2); 
3) (Х»+У)- (А/В); 
3) А-В; 


4) (А+В)--(Сғр); 


3. Ответ «не является» относится к выражениям, включающим разнотипные 


данные в недопустимых языком сочетаниях. 


1) не является 
2) не является 
3) вещественный 
4) не является 
5) вещественный 
6) целый 

7) вещественный 
8) вещественный 
9) не является’ 
10) не является 
11) не является 
12) не является 
13) целый 


14) не является 
15) вещественный 
16) целый 

17) целый 

18) не является 
19) не является 
20) целый 

21) вещественный 
22) не является 
_ 23) целый 

24) целый 

25) не является 


Порция 23 


а) отсутствуют скобки 

6) данные разных типов 

в) пропущен знак умножения и 
скобки 

г) отсутствуют внешние скобки, 
данные разных типов 

д) данные разных типов 

е) данные разных типов 


Х-+(3.*Ү) 2 
Х--(У—5.)/У*=2 
В/Ю1-НС+О/(В*В1=Н) 


((АК+-0р+Х+-3.1416)/(0р-- Х)) «+92 


((А-ЕВ=С)/(А+С))*»(А-Е1.0) 
(—2.+Х 34-3. :Ү *+2—42.) /(2.«У #3) 


Порция 24 


1. Логическое выражение — это правило для вычисления одного логического 


значения. 
2, ОМЗ 


10* 
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Порция 25 
1. См. табл. 9 на стр. 33 


Порция 26 
1. См. табл. 10 на стр. 34 


Порция 27 
1. ((Х++2).СЕ.((А—С)*3)).АМО.((В=Х).Е.(2.75*(Х ++2))) 


Порция 28 


Для заданий 1 и 2 приводится по одному из возможных вариантов: 
1. Ү*+2.1Е.Х.АМ"”О.Ү.СЕ.Х 
2. У.ГЕ.(—Х+*2).ОК.У.СТ.О.0 
3. а) рис. 8, 6) рис. 6, в) рис. 7. . 


Порция 29 


а) ЅОКТ(А++3)--59ВТ(А—В); 
6) СО$(АЕРНА)-Е $1М(АГРНА). 


ИТОГОВОЕ ЗАДАНИЕ 


1. а) 1) 0.178345; 2) 78.2537; 3) 1832.0; 4) 65921.0; 5) 3421.0 

б) 1) 178.345Е—3; 2) 7825.37Е—2; 3) .1832Е4; 4) 6.5921Е4; 5) 342.1Е1 (порядки 

можно выбрать другими) 

в) 1) 178.3450—3; 2) 78.253700; 3) 1.83203; 4) 6.592104; 5) 0.342124 

г) 1) 8НО,178345; 2) 7Н78,2537; 3) 4Н1832; 4) 5Н65921; 5) 493421 
. 1) (027321.0, —321897.0); 2) (27321.0, 0.0); 3) (0.0, —321897.0) 
в 9)3..4), 6), 9) 
. 1) 1.—Х»=2/2.-- Х»»4/4. 

2) (Х+*У/У *«*«Х)**«(7 **(—В)) 

3) (Х—У)+51М(Х)-Е(Х»+=3-- У +*3) *513(Х)/СО$(Х) 

4) 7.954 (Х/(Х—У)-Е5.0) «513(Х) 2 

5) ((ЕХР(Х)—ЕХР(— Х))/2.0) +2--((ЕХР(Х)--ЕХР(—–Х))/2.0) +2 

6) АВЗ(АГОСЯ(Х)*+2—У)--7.3«Х—8.0*У **(—2.3) 

7) АВ$(А)+АВ$(В)*СО$(АЕГРНА) 

8) А++(—Х)--В/(1.+- Х ж*2)--5ӦКТ(АВ5(Х—А)) 

9) АВ5(Х/А**Х--3.*В++(—Х))-- 15.4+Х*(—3) 

10) Х=*Ү/ЅОВТ(Х ++2--Ү +2) -АГОС(АВ5(Х—506Т(1.+-Х**2))) 
5. 1) А+В.ІТ.1.0.0К.С+р.СТ.3.0 

2) (Х+-Ү)+:2--С.1Т.5.5.АМО.Х.СЕ.0.0 . 

3) $ІМ(Х).ІТ.СОЅ(Х).ОК.В.ІТ.1.0 

4) 2.*Х —3..СТ.0.0.ОК.Ү.ІТ.0:0.АМР.С.СТ.2.0 

5) АВ$(Х1—А)+-АВ5(Х2—А)+- АВ5(Х3—А).ІТ.ЕР5 

6) .МОТ.(А.ОВ.В.ОВ.С).АМО.А.ОКВ.С.АМР.(.МОТ.В.АМО.А) 

Т) В-:2—4.+ А*С.СЕ.0.0.АМ№”.С.СТ.0.0.ОВ.А.ІТ.В 

8) ЗОВТ((Х1—А)++2-- (Х2—А)*=2-- (ХЗ—А)**2).ГТ.ЕРЗ 
. а) рис. 11; 6) рис. 9; в) рис. 10. 
. Х.ГЕ.О.5.АМО.У.ГЕ.0.5.АМО.У.СТ.(—0.5) 


292 


қ Со М 


У С 


ГЛАВА П 


Порция 30 
0:0 
Порция 31 
. 16.69 
Порция 32 
381 
Порция 33 
. а) 14.0 вещественный 
6) 0.0 вещественный 
в) 12.4 вещественный 
г) 39 целый 
д) 36 целый 
е) 6.0 вещественный 
ж) 6.5 вещественный 
з) 150.0 вещественный 
и) 150.0 вещественный 
к) 0 целый 
. а) С=$ОВТ(А++2—В+=2) 
6) Х=(Р—Т)+»3 
в) У=Р»-3--Т»»З 
Порция 34 


. а) К2=2.+5+С05(7)/(6.2832+Х) 

б) У=3.1416/3.+В*+2+Н 

в) О=3.1416/3.+(6 *«+2-- В 1+=2-- В +В 1)+Н 

г) АМРЕК=У/5ОВТ(Х *+2- (С«В—Х*С)+ +9) 
д) А=2.0+5О0ВТ(Х +«2-2.«Х«У) 


Порция 35 


. а) АГ=У.ГЕ.—(Х*»2).ОВ.У.ЦЕ.0.0 
6) ВГ=Х+„2--У+»2.ГЕ.1.0.АМО.У*«2.Е.Х 


Порция 36 


. 1) О=ФОКТ(Х»=2-НУ+=2- 7+2) 

2) Х=А+*2--В+-2—2..А+В+СОЗ(ВЕТА) 

3) РЗХ=Ао--Х+(А1--Х*(А2- АЗ»Х)) 

4) 2=Х*У/(Х**(3./2.)-|-У*+(3./2.))— (ЕХР(Х)—2.4)/(Х-РУ) 
5) ЕХ=АГОС(АВ$(Х-2.0))—5.0*(1./(2.-- Х)+-А/(3.+(1.-- Х))) 
. 1) К=Х.„2--У+„2.0Е.4.0 

2) К=Х+*2—У+»2.[Т.16.0.АМО.Х.СТ.О.0 

3) К=Х.ЕО.У.АМО.Х.СЕ.о.0 

4) К=А.СТ.В.ОВ.С.ІЕ.р.АМР”.А--С.СЕ.0.0 

. 1) Правильно | 

2) Числовой (целой) переменной нельзя присваивать логическое значение 
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3) Логическая и вещественная переменные не могут соединяться знаком арифме- 
тической операции 

4) Логической переменной нельзя присваивать числовое значение 

5) и 6) логическая переменная не может быть операндом арифметического выра- 
жения 

7) Правильно 

8) Правильно 


Порция 37 
1. Один 
| Порция 38 
1. Нужно записать символ С в первой позиции этой строки. 
| Порция 39 
1. лл л 2 А=К»[ +2 
Порция 40 


І.В позиции 6 строки продолжения нужно записать символ, отличный от пробела. 
2.4 и л Ло ЈАТРНА=САММА»+3+рЕІТА ++3-- ОЕГТА/САММА-| (САММА--РЕГТА)/ 
сл лл л 1(САММА»-РЕГТА)—5ОКТ(САММА=«РЕГТА) 


Порция 41 


Пел А 2053 | 
д лл л л25=92.+РВж+2__492.0+Р ж+3/2.0 


Порция 42 
26мтетр93: 
Порция 43 
1. КЕАР” (2,6)Х,У,2, № 
Порция 44 
1. а) ВЕАР (2,3)А,В,С,р 
6) МЕІТЕ (1,4) ОМ, ЕАКАО, АМРЕК 
в) ВЕЛО (2,5), К, Г.М, М 
г) МВІТЕ (1,10) Х,У,7 
Порция 45 
См. стрь-эх. 
Порция 46 


1. Символы «,» и «/». 
2. 5 ЕОВМАТ (416) 
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Порция 47 
1. См. стр. 58—60. | 
| 
Порция 48 


1. а) Список форматов полей в операторе ЕОВМАТ не заключен в скобки. 
6) Суммарная ширина полей форматов превышает 80 колонок. 


Порция 49 


ВЕЛО (2,3) В,$,Т,1,7,К,Г.,М,М1В,1В,КВ.ТВ, МВ, МВ 
3 РОКМАТ (3Е15.3/4(316)) 


Порция 50 
1. Три. 


Порция 51 


1. Нет, так как для отдельных переменных определенного типа фиксируются одина- 
ковые поля памяти раз навсегда фиксированного размера. 


Порция 53 
14 Нет, так как форматы ввода не согласованы с типом вводимых данных. 
Порция 54 
1. а) 1111; 6) 1488 
2. а) ТР. 11111; б) ТР: 21488 
Порция 55 
1. ВЕАР (2,7)К,Г.,М,М 
7 ЕОВМАТ (418) 
, Порция 56 


1. ВЕАР” (2,10)А,В,С,р 
10 ЕОВМАТ (Е7.1,Е8.2,Е6.2,Е6.3) 
ИЛИ 
КЕДР (2,11)А,В,С,р 
11 ЕОВМАТ (4Р9.3) 
2. МВІТЕ (1,4)А,В 
4 ЕОВМАТ (2Е10.9) 


Порция 57 


16 КЕАР” (2,9А,В,С,Х 
5 ЕОВМАТ (4Е10.3) 
5ТК=5ОКТ(А=Х *=2*()»Х-- $1 (О)*А))—А»В/2.0 
\ЕТЕ (1,6)А,В,С,Х,5ТВ 
6 РОЮМАТ (5Е 16.6} 
У КЕАР” (2,8)А, В,С 
8 РОКМАТ (ЗЕ 10.3) 
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Х= 51М(А)/СОЅ(А)+59ВТ(51М(В)—АВЅ(В)--С*+3) 
\УВІТЕ (1,10)А,В,С,Х 
10 ЕОВМАТ (4616.6) 


= 


Порция 58 


М ВЕАР” (2,3)А,Х,5 
РОВ МАТ (3210.3) 
У=5ОКТ(Х «+2 —А»* 2) 
7= Х*5/2.0— А» «2/2.0*АТОС(АВ$(Х--5)) 
МЮТТЕ (1,15)А,Х,5,Ү,7 
15 ЕОВМАТ (5Е16.8) 
25 КЕАР” (2, 12)АО, ВІС,5ТІ,ВК2,56Т 
ХЕ (ВК2/5Т1) +2 
О=50ЕТ(58Т—КІ1С) 
Е=АО+-В16/8Т1У4-(ТУ-В16)/(Т—В818)+-0 
МЫ ТЕ (1,14) АЧ, ВІС,5ТІ,ВВ2,56ЕТ,Е 
12 ЕОВБМАТ (5210.3) 
14 ЕОВКМАТ (6Е15.7) 


Со 


Порция 59 


ій 1 9 3 4 
193456789019 3 4567890 1234567 8 901234567890 
0.2873Е-- 05 — —0.3200Е—05 
11 70. ——0.7600Е—05 
95 95. —0.1234Е—04 
о. МВІТЕ (1,5)0,5,Р,Т,В,0 
5 ЕОВМАТ (2615.4) 


Порция 60 


Возможный вариант ответа: 
1. 2 ЕОВМАТ (3022.15) 


Порция 61 


Переменные К2, ІОСІ, 1062 будут иметь значения соответственно: 
Ко КО Е:: 
ГОСГРАЪЗЕ: 
0С2:РАТЗЕ. 


Порция 62 


МЕТЕ (1,7) 
7 ЕОВМАТ “НІ РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЯ СКАЛЯРНОГО. 2 
| ПРОИЗВЕДЕНИЯ, „ДВУХ1ВЕКТОРОВ) 


Порция 63 


ІР ҰҮВІТЕ (1,10)ТОВ1,ТОВ2,ТОВЗ,ТОВ4 
10 РОКМАТ (53Х, 6ННАЛИЧНЫЙ ЗАПАС Ј/ТОВАРОВ// 
„39Х,4НТОВ1,16Х,4НТОВ2,16Х,4НТОВЗ,16Х,4НТОВ4// 
+29Х,Е10.0, 10Х, Р10. 0,10Х,Е10.0, 10Х, Е10.0) 


296 


Порция 64 


1. \РТТЕ (1,2) А,В 
2 ЕОВМАТ (945) 


Порция 65 
1. слл_ 272532 лил 4890001 л лл 211.395 
Порция 67 
1. При отсутствии операторов передачи управления операторы ФОРТРАН-програм- 


мы будут выполняться последовательно в порядке их следования в записи про- 
граммы. | | а. 


Порция 68 
1. См. стр. 85. 
Порция 69 
Правильная запись оператора Ошибка в задании 
1. а) 00 ТО (23,24) В _ список меток не заключен в скобки; 
аі пропущена запятая перед управляю: 
щей переменной; 
б) СО ТО (23,24) 1 нет запятой после: скобок; 
в) СО ТО (23,24,95), КА управляющая переменная должна быть 
целого типа; 
г) СО ТО (23,24), К десятичная точка недопустима в записи 
метки. 
Порция 70 
1. АЗЗ1@М 31 ТО І. 
Порция 71 | 
Правильная запись оператора Ошибка в задании | 
1. а) СО ТО ІК, (1,2,3,4,5) пропущена запятая после идентифика- 
тора переменной ІРР; 
б) СО ТО КЗ5, (3,15,7,23,53) в списке меток должна быть метка 7. 
в) СО ТО КБК, (19,20,21,22,23) управляющая переменная должна быть 
целого типа; 
г) А55ІСМ 3 ТО ВВ значение метки может быть присвоено 
только в операторе АЗЗ1СМ; 
д) АЗЗТОМ 3 ТО ВВ переменная, которой присвоено значе- 
СО ТО ІКК,(1,2,3,4,5) ние метки, может быть использована 
только в операторе СО ТО по предпи- 
санию. | 67 
Порция 72 


1. Смысл оператора СО ТО по предписанию не изменится, оператора СО ТО по вы- 
числению изменится. . 
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‚ 2. Если добавляемая метка отлична от всех меток, перечисленных в списках опера- 
торов СО ТО по вычислению и по предписанию, то возможности каждого из этих опе- 
раторов расширяются за счет появления еще одной программной ветви, на которую 
они могут передавать. управление. 

Если добавляемая метка совпадает с одной из имеющихся в списке оператора 
СО ТО по предписанию, то возможности этого оператора не изменяются. В аналогич- 
ной ситуации для оператора СО ТО по вычислению возможности последнего расши- 
ряются за счет того, что управляющей переменной может быть присвоено еше одно 
значение, соответствующее номеру позиции добавленной метки. 
3. а) недопустима, если после первого оператора нет соответствующего оператора 
АЗЗОМ; 

6) допустима, если между указанными операторами значение переменной К не 
переопределено; 

в) недопустима; в списке оператора СО ТО по вычислению должны: быть указаны 
р елде без знака), а не переменные. | ОВ 

а), Г). 


Порция 73 


1. а) 15(Х)10,10,20 
10 Е=51М(Х) 
СО ТО 30 
20 Е=Х--АГОС(Х). 
30 (продолжение программы) 
6) ТЕ(Х—10.)10,20,30 
10 Е=Х—1.0 
СО ТО 40 
20 Е=3.0:Х +:2-4|-4.0 
СО ТО 40 
30 Е=7.1+Х—5.6 
40 (продолжение программы) 


Порция 74 
1.1 1ЕГ.АМО.1.2)А=А--1.0 | 
2 (продолжение программы) 
2. ТЕ(Х.ОЕ.12.7)Е=2.0*«Х—СО5$(Х) | 
Е (Х.ГТ.12.7)Е=Х»„2--4.0#Х 
7 (продолжение программы) 
Порция 75 


1. Оператор РАЦ$Е используется для временной остановки выполнения программы. 


Порция 76 


1. Оператор ЅТОР передает управление программе-монитору. 


Порция 77 


1. а) недопустима, 
6) допустима, 
в) недопустима, зуе, ВА сата | 
г) допустима. а Ы лос, 
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дах а-аа № н А ав. рете 


6) 


а 


№ 


==> 
ра а >] 


— 


е, 


ИТОГОВОЕ ЗАДАНИЕ 


$=1.7-- У» 
аа В 
= 50ВТ(СК=*+2-- Е о ШОКА +2—В+А) 
т В+СК--СК»*2/В— 
РАМ=<СМ.ГЕ.А.ОВ.В. во, СК.АМО.СМ.СТ.1.1 
РАМ=У*+„2—Х+„2.1.Е.1.0.АМО.Х.СЕ.о.0.АМО.У.Г.Т.о.0 
КЕАБ(2,1)В,5,Т - 
ЕОКМАТ (3Е8.3) 
У=2.0*«В 2-2 С+3 
Х=(Ү-1. ое ть 
МТЕ (1,2) В ,$,Т,Х 
ЕОВКМАТ (4Е15. 8) 


`КЕАр(2,10)Х,Р,ХК 


ЕОКМАТ (3Е8. ) 

М\ЕВГЕ (1,7) 

а ‚ОХ, и. ао 
ІЕ(Х)І, 

Е== Уор 0 

СО ТО 8 

ІЕ(Х-—–10.)8,3,4 

Е= Ха+2—6.0 

СО ТО 8 

ІЕ(Х—12.)5,5,6 

Е=2.«Х--5.0 

СО ТО 8 

Е=4. о 0 

М\ЕТЕ (1,9)Х, 

ЕОКМАТ (15Х, Е15. 8,10Х,Е15.8) 

х= ХУР 

ІЕ(Х—ХК)11,11,12 

«продолжение программы) 
КЕАр(2,10)Х,Р,ХК 

КОКМ Т (3Е8. 2) 

МЕВГТЕ (1,7) 

ЕОКМАТ (30Х, 32НВЫЧИСЛЕНИЕ ЗНАЧЕНИЙ, ФУНКЦИИЕ(Х)) 
ІЕ(Х.СТ. 12.0)Е=4.»Х+3—10.0 

[Е (10.0.ГТ.Х.АМО.Х.ГЕ.12.0)Е=9..Х--5.0 
ІЕ(0.0.1Т.Х .АМ”О.Х Е.10.0)Е=Х а+2_—6:0 
Е=Х-[-20.0 

М\ВТЕ (1,9) Х,Е 

и, (15Х,Е20.8,20Х,Е20.8) 
ТЕ(Х.ГЕ.ХК) <О ТО П 

(продолжение программы») 


ГЛАВА Ш 
Порция 78 


Ј=1 
5 ХО) А01): -8.1416.4(0)ек2 


1Е(7—20)5,5,17 
17 (продолжение программы» 


11* 
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Порция 79 
1. В(1,1), В(2,1), В(3,1), В(2,1), В(2,2), В(3,2) 


Порция 80 


1: 16. 
2. Позиция элемента массива в упорядоченном множестве элементов этого массива 


называется приведенным индексом этого элемента. 


| Порция 81 
1. ВЕС(3,1,,2+К—3) 


Порция 82 


1. а) правильно, 
6) правильно, 
в) четырехмерные массивы в стандарте языка ФОРТРАН недопустимы, 


г) индексы должны быть целыми, 
д) индекс не может быть отрицательным, 
е) правильно. 
2: 115—0.:0 
1—6 
5 5=5-+Х (1) 
114-1 


ТЕ(—30)5,5,6 
6 (продолжение программы) 


Порция 83 
1. См. стр. 106. 


Порция 84 


. РІМЕМЅІОМ А(6,17),САІМ(3,4),р(3),рАТЕ(6,2,9) 
2. а) описатели массивов должны отделяться друг от друга запятыми, 
б) ошибка в записи служебного слова РІМЕМҲІОМ. 


= 


Порция 85 


1. а) РІМЕМЅІОМ Х(3) 
РАС=ЗОВТ(Х (1) ++2-- Х (2) +24-Х (3) +9) 

6) Р1МЕМЗТОМ Х(3 
СА=Х(1)/ЗОВТ(Х(1)**2-Е Х (2) **2-ЕХ (3) +2) 
СВ= Х (2)/ЗОВТ(Х (1) *=2--Х (2) «+2 Х (3) =*2) 
СС= Х(3)/ЗОВТ(Х (1)+=2--Х (2)*+0-Е Х (3) **2) 

ИЛИ 

р МЕМ$1ОМ Х(3) 
р=$ОВТ(Х (1) ++2-- Х (2) **2-[ Х (3)**2) 
СА= Х(1)/0 

СВ= Х (9/0 

СС= Х(3)/0 
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Заметим, 


29а) 


З. а) 


6) 


1. а) 


6) 


10 


что второй вариант фрагмента программы короче по записи и экономнее 
по времени выполнения. 


Порция 86 
1. Вычисление. суммы положительных членов ‚‹последовательности. т! 
[=0 
[=1--1 


ТЕ(А(1).СТ.О.0)$=5--А(П 

ТЕ(Т.ГЕ.М) СО ТО 10 

(продолжение программы) 
0 


— 
—— 
° 


1—0 

1= 14-1 

ІЕ(І.СТ.№) СО ТО 15 
ІЕ(А(1).СТ.0.0)5=5+-А() 
ЗО ТО ‘10: С В | 


15 (продолжение программы) 


ос 


М№= (число) 
0 


1=1 
Ј=1 

$1=51--А(І,Ј) 
ІЕ(№.ЕО.Ј) СО ТО 15 
Ј=)41 


соро т, 


15 


10 
12 
15 


16 1 


20 


ІЕ(І.ЕО.М№) СО ТО 20 
1=14-1 


СО ТО 5 
{продолжение программы) 
М№М= (число) 
$1=0.0 

[=] 

=] 
$1=$1--А(Т,Т) 
[Е (7— М) 12,15,20 
Ј=]Ј+4-1 

СОТО Т0 
1Е(1—1) 16,20,20 
= 1-1 


СО ТО 5 
(продолжение программы) 


Порция 87 


РІМЕМ5ІОМ А(50),В(50) 
$=0.0 
РОГ! 1150 


7 5=54-А(1)*В(Ј) 
РІМЕМ5ІОМ А(50),В (50) 
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$=0.0 
1=1 

5 Ј=51-—1 
$=5+-А(І)*В(Ј) 
114-1 


1Е(1—50)5,5,6 
6 {продолжение программы» 
Примечание. В приведенных фрагментах программ оператор Ј==51—1 введен 


в связи с тем, что запись (51—1) недопустима для индексного выражения. 


1. 


Со № - 


Порция 88 


РІМЕМЅІОМ А(15,15),Х(15),В(15) 
РО 5 1=1,15 

В(1)=0.0 

рО 5 Ј=1,15 
5 В()= ВО)--А(І, Ј)«Х()) 


Порция 89 


РІМЕМЗ10М М1(10,10),МКЕЗ(10,10) 
РО 5 1=1,10 
ро 5 К= Г 10 
МКЕЅ$(1,К)=МІ(К,1) 
5 МКЕЅ(1.,К)=МКЕЅ(І.,К) «2 


Порция 90 


. Глубина вложенности операторов цикла стандартом языка не ограничена. 
. Могут. 
. См. стр. 118. 


Порция 91 


. Конечным оператором области оператора РО может быть. только оператор, не вы- 


зывающий передачи управления. 


Порция 92 


. Вычисление суммы элементов матрицы, лежащей выше главной диагонали, ВКЛЮ• 


чая элементы диагонали. См. стр. 111. 


. а) пересечение циклов недопустимо, 


б) переменная І в программе не определена, | 
в) программа эквивалентна приведенной в задании 1, 
г) переменная [ в программе не орределена: имеет место пересечение ЦИКЛОВ. 


Порция 93 


. а) КЕАО(2,1)ЕР$,Х1,У1,21,А11,А12,А13,А21,А22, АЗ3, АЗ], АЗ2,А33,В1,В2,В3 . 


1 РОКМАТ (Е8.6/(3Е 12.4)) 
ро 10 1=1,100 
Х0=Х1 
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У0=У1 
70=71 
Х1=А!1+ХО-ЕА 19+Ү04-А13:70--ВІ 
У1=А21+Х0-- А22+У0-- А23+70--В2 
71==АЗІ+ХО--А32+Ү0--А33+70--ВЗ 
ТЕ(АВ$(Х1—ХО)..Т.ЕРЗ.АМО.АВ$(У1—У0)..Т.ЕРЗ.АМО.АВ$(20—21). 
1 ГТ.ЕР5) СО ТО 5 
10 СОМТІМОЕ 
МРТТЕ (1,9) 
2 РОВМАТ (5Х, 18НПРОЦЕСС. РАСХОДИТСЯ) 


5 МРІТЕ (1,3)1,Х1,У1,71 

З РОВМАТ (5Х,15НЧИСЛО-ЗИТЕРАЦИЙ: ‚13, 10Х,3Е12.4) 
ТОР | 
ЕМр 


Внимание! Символ 1, стоящий перед оператором СО ТО 5,— символ продол- 
жения оператора. 

б) Для выполнения этого задания необходимо включить в программу, приве- 
денную в задании а), следующие операторы: 

1) Включить оператор РІМЕМЅІОМ А(3,3),В (3) 

2) Оператор ВЕАО переписать так: 

КЕАр(2,1) ЕР$,Х1,У1,71,А,В 

В операторах: Х1= 

\1 == 


— 


заменить ВІ на В(1), В2 на В(2), ВЗ на В(3), А11 на А(1,1) ит. д. 

В остальном программы будут эквивалентны. 

в) Для выполнения этого задания в программе, приведенной в задании 1, сле- 
дует произвести следующие изменения: 

1) Включить оператор РІМЕМЅІОМ А(19) 

2) Оператор ВЕАР записать в виде: 

КЕАО(2,1)ЕР$,Х1,У1,21, А 


З) В операторах ХІ 
Х2= 


Х8= 
заменить: А11 на А(1) 


ВЗ на А(12) | 

2. Полагая, что в программе, выполняемой до приведенного ниже фрагмента, решаю: 
щего поставленную задачу, определены значения: переменной целого типа М, опре- 
деляющей порядок решаемой системы уравнений; элементов массива А(М, №) — 
коэффициентов при неизвестных, элементов массива В(№) — свободных членов урав- 
нений, элементов массива УАТ.(М) — начальных приближений, переменной вещест- 
венного типа ЕР5 (заданная точность приближений), К — максимальное число до- 
пустимых итераций, при превышении которого процесс считается расходящимся 
(переменная целого типа), реализуем следующий алгоритм. 
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Введем в рассмотрение массив логических переменных размерности № — массив 
ВООГ(М). В начале выполнения настоящего фрагмента заполним его значениями. 
.ТВОЕ., а в дальнейшем после вычисления каждого из новых приближений будем 
сохранять значение соответствующего (по номеру) элемента или заменять его зна- 
чением .ГКАГЗЕ. в зависимости от того, является ли. разность между двумя очеред- 
ными приближениями меньшей ЕР$ или превосходит это число. 

Если все элементы массива ВООГ, после вычисления очередной итерации ока- 
жутся равными .ТКОЕ., итерационный процесс является успешно завершенным 
и выдается результат на печать — число итераций и решения; если число итераций 
‘превышает число К, выдается сообщение «ПРОЦЕСС РАСХОДИТСЯ». В том или 
ином случае осуществляется выход на продолжение программы. 

РріМЕМЅІОМ УАТО(№),А(М№,М),В(М№), УАТ (№), ВОО (№) 
ІОСІСАГ ВООІ. | 
ро 10 1=1,К 
РО 2 1=1,М 
ВООГ (1)=.ТВОЕ. 
2 УАТО(1)=УАТ (1) 
р 


О 4 11,3 
УАІ(1)=В(І) 
ро 3 Ј=1,№ 


З УАТ (П)=УАІ(І)--УАТО(Ј) *А(1,Ј) 
ІЕ(АВЅ(УАТ(1)--УАТО(1)).ІТ.ЕР5) СО ТО 4 
ВООІ (= .ЕАІЅЕ. 
4 СОМТПМОЕ 
РО 5 1=1;М№ 
_ Е (МОТ. ВООІ(І)) О ТО 10 
5 СОМТІМОЕ 
т СО ТО 6 
10 СОМТІМОЕ 
с МВИЕ (1) 
1 РОКМАТ (5Х,18НПРОЦЕСС, РАСХОДИТСЯ) 
СО ТО 12 
6 \КИЕ (1І,11)К,УАІ. 
11 РОКМАТ (5Х ‚13, (Е12.4)) 
12 (продолжение программы) 
3. Для получения необходимого фрагмента программы достаточно в приведенном ре- 
шении предыдущего примера в операторе с меткой 3 заменить лишь единственный 
идентификатор УАТО идентификатором УАТ.. Действительно, в этом случае при вы- 
числении каждой последующей итерации для і-ой переменной будут приниматься 
в расчет вместо предыдущих вновь вычисленные значения для всех Ј < і (для Ј > 
эти значения еще не перевычислялись и УАГ(Т)=УАГ.О(7)). 


Порция 94 


1. РіІМЕМЅІОМ А(№) 


рО] 

ЕЕ 

Е (А(1).ГТ.О.0) СО ТО 7 
5 СОМТІМОЕ 

М= М. 
7 \КИЕ (1,2) М 
2 РОКМАТ (17) 


Порция 95 


КЕАП(2,5)(АВ,ВХ,С2, ((К1(Т,7),1=1,3),1= 1,2), (В(1),1= 1,4)) 
КЕАБ(2,7)АВ,ВХ,С2,К1(1,1),К1(1,2),К1(1,3),К1(2,1),К1(,2, 
1К1(2,3),В(1),В(2),В(3),В (4) - 


м 


Порция 96 


1. ВЕМІМР”, ВАСК$РАСЕ, ЕМРЕП.Е | 
2. Вспомогательные операторы ввода-вывода используются при работе с магнитной 
лентой. | 


Порция 97 
1. РАТА ЕБІ,ВІМ,ВОМ,АІОМО(2,3)/275.1,17.3,0.05,37.8/ 


Порция 98 | | 
1. РООВІЕ РКЕСІЅІОМ А(6) — № 


РАТА А(),А(2),А(3), (4), А(5)/ЭНЗНАЧЕНИЯ, ,11НПЕРЕМЕННЫХ, +, 
1 6НПОСЛЕ | };1 1НВЫПОЛНЕНИЯ, _›ЭНПРОГРАММЫ/ 


Порция 99 | 
1. а) РАТА А,В,С/2.7,2+4.0/ — число переменных должно быть равно числу 
ИЛИ констант (с учетом коэффициента повторения); 
"РАТА А,В,С,р /2.7,3+4.0/ к. 
б) РАТА К/2.0/ — оператором РАТА нельзя присваивать начальные 


значения переменным из общего блока; 
в) РАТА А(1),А(3),А(6)/3*1.0/ — индексы переменных в операторе РАТА могут 
быть только целыми положительными константа- 
ми, но не переменными. | 


ГЛАВА ПУ 


Порция 100 


1. В языке ФОРТРАН имеется два класса вычислительных процедур: процедуры- 
функции и процедуры-подпрограммы. 

. Типы функций: операторные, встроенные, внешние. 

‚ См. стр’ 136. 


Сә М 


Порция 101 


1. Идентификаторы функций и подпрограмм вводятся для возможности обращения 
К НИМ. 

2. Определенные идентификаторы закреплены для встроенных и основных внешних 
функций. 

З. Идентификаторы встроенных функций: 


Идентификатор Тип аргумента Тип функции 

МАХО целый целый 

МАХІ вещественный целый 

РМІМІ повышенной точности повышенной точности 
КЕАГ, комплексный вещественный 

ТЕХ вещественный целый 
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Идентификаторы основных внешних функций: 


Идентификатор Тип аргумента Тип функции 
ЕХР вещественный вещественный 
СЕХР комплексный комплексный 
АІ0а10 вещественный вещественный 
рсоѕ повышенной точности повышенной точности 
ССОѕЅ комплексный комплексный 
АТАМ вещественный вещественный 
Порция 102 
1. При обращении к процедуре задаются фактические параметры. 
2. По значению и по наименованию, см. стр. 138. . 
3. Да (см. стр. 139). 
4. Нет (см. стр. 138). 
5. По наименованию. 
6. Идентификатором переменной, идентификатором переменной с индексами или 
идентификатором массива. 
7. Списки формальных и фактических параметров должны быть согласованы в типе, 
А насле и порядке следования соответствующих параметров в списке. 
. Нет. 


Порция 103 


і. Идентификатор массива или элемента массива. 


2. 
ские параметры могут. 
Порция 104 
1. СОЅ(Х +2 —А) 
Порция 105 
1, В языке ФОРТРАН допустимо использование т 
операторные, 
встроенные, 
внешние. 


2. Тип операторной функции может задаваться явно (в операторах спецификации 


типа) и неявно. 


3. Неявно тип внешней функции задается посредством использования соответствую- 


щей первой буквы идентификатора. 


4. Нет. Явно тип функции в ее теле может быть задан только в операторе ЕОМСТІОМ, 


Формальные параметры не могут быть одинаковыми идентификаторами, фактиче- 


рех типов функций: 


Т. е. для определения логической функции А(Х) необходимо записать: 


ГОСІСАІ, ЕОМСТІОМ А(Х) 
Порция 106 


1, 1) Недопустима. Идентификатор встроенной функции не может быть одновременно 


идентификатором переменной в одной и той же программной единице. 
2) Недопустима. В выражении используются данные разных типов. 


3) Недопустима. 
4) Допустима. 


5) Недопустима. Результатом выполнения функции ЕГОАТ будет данное вещест- 
венного типа, которое нельзя использовать в одном выражении с целым. 

6) Допустима при условии, что АМОР является некото 
аргумента (тем самым отличной от встроенной функции АМОР, которая 


является функцией от двух аргументов). 
7) Допустима. 


306. 


рой функцией от одного 


т А о Р ОИЧРЧР ГЕНРИ 


Порция 107 


‚ ОЕ(А)= А/2.-АВЅ(А):50ВТ(А :3--2.5) 
В1=ОЕ(В)/(В*+*2—3.=В) 
К2=(С++2—4.+5)/ОЕ(С)--ОЕ()/$1М($) 9 

‚ ОМЕ(А,У)=4 +А—(У--А*ж2)+51М(АУСОС(А) 


Порция 108 


· Переменная К в этой программе определяет номер строки вывода. Последнее 
значение, присвоенное переменной К, равно 98. | 
. Операторы, следующие в записи программы после оператора с меткой 5, можно 
заменить следующими: 
Р1=Р(1.7,—2.41) 
МКИЕ (1,6)РІ 
6 ЕРОКМАТ (7Х,2Н97,6Х,5Н, 1.71 _,11Х,5Н—2.41,7Х,Е19.6) 
Р1=Р(—2.41,1.7) 
УБІТЕ (1,6)Р1 | 
ТОР 


ЕМ” 
О(Х,Ү)= ХҮ 
Ү(Х,Ү)=Х=+Х—51№(Ү) 
Е(0,У)=ЕХР(О»\)--У-3.0. 
ХХ, У) = АТОС(Е(О(Х, Ү),У(Х, Ү)))-+-ЅОВТ(О(Х, Ү)*Ү(Х,Ү)) 
Ук ПЕ (6,3) | 


У=— 0.28 

ро 8 К=1,11 

НХ=К 

Х=хХ--0.1+НХ 

ро 7 1=1,4 

НУ, 

У=уУ--НУ 

М1= МИХ, У) | 

ҮВІТЕ (6,9)Х,Ү,№1 
7 СОМТІМЈЕ 

У=6.1 

ро 8 1=1,11 

НҮ=1. 


Х,Ү) 
ҮУРІТЕ (6,9)Х,Ү,\1 
8 СОМТМОЕ 
2 РОМАТ (5Х,Е10.4,10Х,Е10.4,10Х,Е10.4) 
3 РОКМАТ (5Х,10НЗНАЧЕНИЕ, }Х,10Х,10НЗНАЧЕНИЕ! ;Ү,10Х, ``. 
1 І0НЗНАЧЕНИЕ } Ау) | | АРТЕ 
ЅТОБ 
ЕМ” 


| Порция 109 
‚ СОММОМ /РА/С(3,4),Р(3,4) о дЕ И" 
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Порция 110 


|8 Размер общего блока — это сумма единиц памяти, необходимой для размещения 
объектов, указанных в операторах СОММОМ и ЕОЛУАТЕМСЕ. 
2. Нет (см. стр. 158). | 


Порция 112 


1. а) Пропущена запятая между списками переменных. 

6) Третий список содержит две переменные, определенные ранее как эквивалент- 
ные (А и Е). 

в) Такое совмещение по памяти элемента массива из общего блока В(2,1) и эле- 
мента массива К(4) недопустимо. 


Порция 113 
1. См. стр. 166. 


Порция 114 


1. а) Неправильно. Идентификатор функции состоит более, чем из шести символов. 

6) Правильно. Ре. | 

в) Правильно. | 

г) Неправильно. Формальный параметр не может быть идентификатором пере- 
менной с индексами. - у 

д) Неправильно. Формальные параметры не могут быть константами и выра- 
жениями. | 


Порция 115 


1... СОМРЕЕХ ЕОМСТЮМ АМКАК) 
СОМРГЕХ АҚ 
Р1МЕМ$1ОМ АК(15,15) 
А=0.0 
М=1 
№1 
БОЛ 1115 
БОС 15 


ТЕ(САВ$(АК(Т,7))—А)1,1,2 
А=САВЅ(АК(1,Ј)) 
М=1 


М№=Ј 
СОМТГМОЕ 


г 


еа 


2. ІМТЕСЕВ ЕОМСТІОМ№ А1(АК) 
СОМРІЕХ АҚК · 
РІМЕМЅІОМ АК(100) 
А=0.0 
ро 1 11,100 
ІЕ(САВЅ(АК(І))—А)1,2,2 
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2 А=САВЅ(АК(І)) 
А1=1 


СОМТІМОЕ 
КЕТОКМ 

ЕМ” 

3. СОМРГЕХ ҒОМСТІОМ АЗ(АК) 

СОМЕВЕХ АК(20) 

М= 

А=САВЅ(АК(1)) 

ро 1 1=2,20 

ІЕ(САВЅ(АК(1))—А)2,1,1 

А=САВЅ(АК(І)) .. 

М=1І 

СОМТІМОЕ 

АЗ=АК(М) 

КЕТОКМ 

ЕМО 

4.  ЕОМСТОМ Е(В) 

КЕАГ, В(20,30),А (200) 

ЕФОІУАТЕМСЕ (В(1,1),А(1)) 

АМІМ=АВЅ(А(1)) 

АМАХ=АВЅ(А(1)) 

ВО. = 23200 65.27." | 
ІЕ(АВЅ(А(1))—АМІМ.ІТ.0.0)АМІМ=АВЅ(А(1)) 
ІЕ(АВЅ(А(1)) —-АМАХ.СТ.0.0)АМАХ=АВЅ(А(1)) 
СОМТІМОЕ . | | Ее 
Е=АМАХ—АМ1М 

КЕТОВКМ . 

ЕМ” 

5. Необходимо: Я 
а) Во втором операторе спецификатор КЕАГ заменить спецификатором 


ы 


—= ю 


— 


СОМРГЕХ. 


6) Идентификатор встроенной функции АВ$ во всех указателях этой функции 
заменить идентификатором основной внешней функции САВ$ (см. табл. 24, стр. 282). 


Порция 116 


1. Нельзя. Одна из этих функций никогда не будет выполнена. , | 
. Внешнюю функцию можно обозначить идентификатором, закрепленным за встроен- 

ной функцией, однако в этом случае встроенная функция с этим идентификатором 
в данной программной единице не может быть использована. 

Об идентификаторе основной внешней функции см. ответ на вопрос 1. 

Одним идентификатором нельзя обозначить операторную функцию и внешнюю, 
к которой имеется обращение в данной программной единице. 
3. Момент завершения выполнения процедуры определяется выполнением оператора 
КВЕОВМ. Э 
4. а) Нет, так как функция В обращается сама к себе посредством функции ү. 

6) Допустимо. 

в) Недопустимо, так как функция @& обращается сама к себе посредством функ- 
ции В 
5. Формальные параметры Х и У являются идентификаторами внешних функций, 
параметр 4 является идентификатором простой переменной. ) 
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Порция 117 


1, РОМСТІОМ СРАВН (Х, У, 7) 
ІЕ(Х—Үу)5,6,5 
СРАВН=3. 
РЕТОВМ 


~ сос ер) 
к= 
29 
— 
0 
м 
М 
=. 
59 
— 


ИЛИ с. еее 
ТЕ(Х.ЕО.У) СО ТО 5 
_1Е(Х.ЕО.7) СО ТО 6 


чмо < 
ооо 
96’ 
>> 
6935 
по 
ЕА! 
к Со 
о-о 


2. ЕОМСТІОМ $МАШ, (А,№) 
ОІМЕМЅІОМ А(1000) 
МАГ = А(1) 
РО 1 [=2,М 
‚ ТЕ(5МАТ—А(1))1,1,2 
2 ЗМАГТ=А(1Т) 
1 СОМТМОЕ 
ВЕТОВМ 
ЕМО ие 
3. а) Недопустимо, так как функция не имеет параметров. 

6) Недопустимо. Результатом выполнения данной функции должно быть дан- 
ное логического типа. Выражение, вычисляемое в правой части оператора, присваи- 
вающего значение переменной логического типа Е, является вещественным, что не 
допускается правилами ФОРТРАНа. 

в) Недопустимо, отсутствует спецификатор типа функции Е. 


Порция 118 


}. Обязательно. 

2, Обязательно. 

3,  ГОССАГ, ЕОМСТЮМ МИА, М) 
РІМЕМЅІОМ А(М,М) 


М1 =М—1 


ИМ 
2 ТЕ(А(1,Ј).М№Е.А(Ј,1)) СО ТО 3 
$9 М=.ТВОЕ. 
РЕТОВМ 
3 $М=.ВАТЕ. 
ВЕТОВМ 
ЕМО 
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Порция 119 


1. Между первым оператором и конечной строкой в теле подпрограммы запрещено 

использование операторов ЗОВКОЧТИМЕ, ЕОМСТІОМ, ВГОСК РАТА, $ТОР и ко- 

нечной строки ЕМО. 

2. Идентификатор внешней функции используется в теле функции в роли идентифи- 

катора переменной, значение которой в этом теле должно определяться. Обращение 

к внешней функции осуществляется посредством указателя. 
Идентификатор подпрограммы используется при обращении к подпрограмме 

в операторе САГГ. 

3. Первые символы идентификаторов подпрограмм никакой специальной функции 

не выполняют. 


Порция 120’ 


1. Идентификаторы процедур используются в вызываемой и вызывающих проце- 
дурах. 

Идентификатор подпрограммы в вызываемой процедуре должен появиться в опе- 
раторе ЗУВКОЧТТ\Е; в вызывающей — в операторе САІШ. 

Идентификатор внешней функции в вызываемой программе должен появиться 
в операторе ЕОМСТІОМ и хотя бы в одном из операторов, определяющих его значе- 
ние как значение данной функции. 


идентификаторы тех внешних процедур, которые используются в теле данной про- 
граммной единицы в качестве фактических параметров. ит 84 

4. Наличие оператора ЕХТЕВМАГ в некоторой программной единице говорит о том, 
что в ней имеется косвенное обращение к внешним процедурам. нА | 


Порция 121 


1. ЅОВКООТІМЕ АГК(А, А2) 
РіІМЕМЅІОМ А(100) 
СУММА —0.0 
ро 1 Ј=1,100 
СУММА=СУММА+--А(Ј) 
А2==СУММА/100.0 
ВЕТОВМ 
ЕМР 
2. ЅОВКООТІМЕ ЅТЕ(Х,Ү,К) 
РІМЕМЅІОМ Х(150),Ү(150) 
ро 10 /=1,К 
№К—7--1 
10 Ү(№)=Х(Ј) 
ВЕТОВМ 
ЕМ” 


1А 


Порция 122 


1. ЗОВКООТІМЕ СРЕРН(А,К,СР,М№) 
РІМЕМЅІОМ А(50) 
СР=0.0 
К=0 
ро 1 1=1,М 
СР=СР--А(Ј) 
ЇЕ(А(Ј))1,9,1 
2 К=К-+1 


Зи 


1 СОМТІМОЕ 
АМ=М 
СР=СР/АМ 
ВЕТОВМ 
ЕМ” 
9. СА. СРЕРН(В,КМ,УСР,40) 
УСРЕУСР»2 


Порция 123 


1, Исходные данные в подпрограмму могут быть переданы посредством аппарата 
формальных-фактических параметров или через общие блоки памяти. 

2. Результаты выполнения подпрограммы могут быть использованы в вызывающей 
процедуре посредством фактических параметров, соответствующих формальным, 
вызываемым по наименованию, или через общие блоки памяти или могут быть выда- 
ны во внешнюю среду посредством операторов вывода. 

3. Да. Это может иметь место вследствие изменения значений переменных из обще- 
го блока памяти. | 

4. Через общий блок памяти или посредством операторов вывода. 


Порция 124 


1, Формальные параметры не могут быть использованы в’операторах СОММОМ, 
ЕОЧТУАТЕМСЕ и "РАТА. 


Порция 125 


1. Если результаты выполнения процедуры должны быть выданы при ряде обраше- 
ний к ней в различные поля памяти, необходимо воспользоваться аппаратом фор- 
мальных-фактических параметров. . | | 

Если при различных обращениях к данной процедуре могут быть использованы 
одни и те же поля, вместо аппарата формальных-фактических параметров можно вос- 
пользоваться оператором СОММОМ. 


Порция 127 


1. Оператор ЕХТЕВМАГ, необходим в том случае, когда в данной программной еди- 
нице идентификатор некоторой функции используется в качестве фактического па- 
раметра. | | 

2. Нет, так как это означало бы рекурсивное обращение к данной программной еди- 
нице, запрещенное синтаксисом языка ФОРТРАН. 

З. Наличие идентификатора встроенной функции в списке оператора ЕХТЕКМАЬ 
означает, что в данной программной единице соответствующая функция не исполь- 
зуется и выполняемая программа включает внешнюю процедуру, обозначенную этим 
идентификатором. Наличие указателя данной встроенной функции в правой части 
оператора присвоения означает обращение не к встроенной функции, а к соответст- 
вующей внешней (с тем же идентификатором). 


Порция 128 


1. В случае, когда выполнение функции сводится к выполнению одного оператора 
присвоения. | 
2, Используя встроенную функцию ЕГ.ОАТ, необходимый фрагмент программы пред- 
ставим в виде: | 
ВЕАГ. Х(100), У(106) 
Р4()=Х(+Х РУ) У 
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С()=ЕГОАТ (І) 
м, -ЕС(1)-ЕСО$(2.*С(Т))-$ОВТ(Р4(1)) 


ро 1 1=№1,№ 
1 В=В-ЕТ() 
_ В=В+5ОВТ(Р4(50))--$ОВТ(Р4(100)) 


Фи КФ, ФЕ 1010: соо Ао: Ро 


ЕХТЕВМАГ, Р1,Р9,Р3,Р4 
СОММОМ Х1(100),У(100) 

о САГТ, Р4(50,51) 
САШ. Р4(100,52) 
САГЬ Т (№, №, Рі, $3) 
САГТ, Т(№,№4,Р2, 54) 
САШ. Т(№5,№,Р3,55) 
САШ. Т(М7,№,Р4,56) 
В=51--52--$3--54--$5--56 


ЕМО 
ЗОВКОЧТИМЕ РІ(1,5) 
= 1] 


‚ ЕМО 
50ВКООТІМЕ Р2(1,5) 
=] 


9=С05(2.0*+А) 
ВЕТОЮМ 

ЕМО 

ОВКООТІМЕ РЗ(І, $) 
$= [4+ 

ВЕТОВМ 

ЕМО 

ЗОВКОПТИМЕ Р4(1,5) 
СОММОМ Х (100), Ү(100) 
5=5ОКТ(Х (1) *=2-- Ү(1) +92) 
КЕТОВМ 


ЕМО 
4. 1) Допустима. 
2) Допустима. ы 
3) Недопустима. Процедура Т должна быть внешней (что следует из указания 
ее идентификатора в операторе ЕХТЕКМАІ) и одновременно операторной функцией. 
(что следует из употребления этого идентификатора со списком формальных парамет- 
ров в левой части оператора присвоения). ! 
4) Недопустима. Формальные параметры не могут быть включены в список 
оператора СОММОМ. 
5. Нет, так как в этом случае каждый получаемый результат при очередном вызове 
процедур будет уничтожать предыдущий. 
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Порция 129 


1. Размеры массивов могут быть заданы: 

а) в операторе спецификации типа, 

б) в операторе Р1МЕМЗ1ОМ, 

в) в операторе СОММОМ, однако в том случае, когда эти размеры не являются 
формальными параметрами, и, значит, не являются регулируемыми, 
2. Массивы, хотя бы один из размеров которых определяется идентификатором (це- 
лого типа). 7 
З. Такой список должен включать как идентификаторы регулируемых массивов, так и 
идентификаторы переменных, определяющих их размеры. 
4. Минимальное — четыре: три идентификатора этих массивов и один — определяю- 
щий их размеры. Например: А(№, В(№ ‚№, С(10,№, №). Максимальное — 19: три иден- 
тификатора массивов и по три параметра, задающих размеры для идентификатора 
каждого из массивов. В этом случае все размеры должны определяться различными 
идентификаторами. 
5. Нет. Эта процедура должна иметь по меньшей мере два формальных параметра: 
идентификатор регулируемого массива и идентификатор его размера. 
6. Можно, если исходные матрицы имеют размеры МХМ и МХК, где М и. К заданы 
константами. В этом случае результирующая матрица будет матрицей с постоянными 
размерами. Например, исходные матрицы имеют размеры: 


П А(ЮХМ); В(МХ5) 


Результирующая матрица будет иметь размер 10Х 5. 

° В других случаях, когда результирующая матрица будет также иметь регули- 
руемые размеры, ее идентификатор должен быть включен в список формальных па: 
раметров. | 

В качестве параметров циклов нельзя использовать формальные параметры, 
‚ определяющие регулируемые размеры, так как языком запрещено их переопреде- 

ление. 

7. 1) Недопустима. Идентификатор М, определяющий регулируемые размеры мас- 
сива А, становится неопределенным при выполнении оператора АЗЗ1СМ, что за- 
прещено языком. Я 

2) Недопустима. Идентификатор, определяющий регулируемые. размеры мас- 
сива, не может быть использован в качестве управляющей переменной оператора 
СО ТО. И: 

3) Недопустима. Идентификатор, определяющий регулируемые размеры маф 
сива, не может использоваться в качестве параметра цикла. 

4) Допустима. 

5) Допустима. _ 

6) Недопустима. Идентификатор, определяющий регулируемые размеры мас- 
сива, не может быть переопределен в теле процедуры. до у 


Порция 131 
1. $—=5Р(А,М,М,2,3) 
$1=5Р(А,М,М,3,5) 
$2=5Р(А,М,М,2,2)--$Р(А,№,М,3,3) ТТЫ 
2. Число формальных параметров в ‘подпрограмме ГОС не может быть уменьшено 
в связи с тем, что размеры массивов заданы переменными, т. е. массивы имеют регу- 
лируемые размеры, которые могут определяться только через параметры. 
3. ІЕ(А(Ј,1))3,2,3 
9 СФМТІМОЈЕ 
В(1)=.ЕАІЕ, 
СО ТО 


4 
3 В(=.ТВОЕ. 
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нары. ЕЕН а Ва 


ИИ А-а 


4 СОМТІМОЕ 
КЕТОВМ 
ЕМО 
4. Нет. Размеры массивов могли быть описаны в операторах спецификации типа: 
ЗОВКОЧТИМЕ Т.ОС(А,М,М,В) 
ГОСТСАТ, В(М) 
КЕАГ А(М,М) 
5. Тот же результат (логический вектор В) может быть получен при выполнении сле- 
дующей программы, содержащей вместо 13 только 10 операторов: 
ЗОВКОЧТИМЕ ТОС(А,М,М,В) 
ГОСІСАІ, В 
РІМЕМЅІОМ А(М,М№),В(№) 
О 2 11,№ 


РО 2 Ј=1,М 
ІЕ(А(Ј,1).№Е.0.)В(П)=.ТВОЕ. 
2 СОМТІМОЕ 
КЕТОКМ 
ЕМ” 
Однако по времени выполнения приведенная программа уступает программе, при- 
веденной в порции 131: просмотр элементов столбцов в ней продолжается и после 
того, как встретился ненулевой элемент; соответственно этому производится повтор- 
ное присвоение элементу массива В(Т) значения .ТВОЕ.. 
Ниже приведен еще один вариант программы, содержащий 11 операторов, но 
свободный от указанного недостатка: 
ЗОВКООТИМЕ ГОС(А,М,М,В) 
ГОС]САТ, В 
РІМЕМЅІОМ А(М,М),В(М) 
РО 3 1=1,М 


ЇЕ(А(Ј,1))3,9,3 

2 СОМТІМОЕ 

3 В)=.ТВОЕ. 
ВЕТОВМ 
ЕМ” 


Порция 182 


1. ВІОСҚ РАТА 
СОММОМ /ВІОСК5/А,В,С,Р,ВООІ.3 
ГОСІСАГ, ВООІ3 
ІМТЕСЕВ А(0,2),В (0,2) 
РАТА А(1,1),А(2,1),В(1,1),С,ВООІ.3/9,3,4,77.7,.ЕАІ.5Е./ 


Порция 133 


1. а) Е()=ЕГОАТ(1 «+24-51М(ЕТОАТ(1)4-1.)--ЕІОАТ(К) 
26) Е(К,Т)=5ОКТ(ЕГОАТ(К))-|+ (ЕТОАТ(К)--2--Т)+»(1./3.) 
в) М(5,К)=1ЕІХ (5)-4-(1--2+ К) ++3 | 
2. ЕОМСТІОМ С(Х,А) | 
ІЕ(Х)1,2,2 
1 С=А:Х +9 
ВЕТОВМ 
2 а= А» Х #3 
ВЕТОВМ 
ЕМ” 
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3. ЗОВКОПТИМЕ М(А,В,С) 
РІМЕМЅІОМ А(10,10),В(10,10),С(10,10) 
ро 5 1=1,10 


РО 5 К=1,10 
С(Т,Ј)=С(І,Ј)-А(І,К)+В(К,Ј) 

ВЕТОВМ | 

ЕМ” 

РІМЕМЅІОМ В(10,10),ВМ(10,10),А(10,10) 
ВЕЛО (9,1)В,((ВМ(1,Ј),7=1,10),1= 1,10) 
ЕОВМАТ (5Е14.4) 

САГТ, М(В,ВМ,А) 


сл 


— 


‚ОО 5 1=1,10 
РО 5 Ј= 1,10 
5 А(1,Ј)=С(А(1,Ј),5.0) 


Ү/ЕІТЕ (1,2) ((А(1,Ј),7=1,10),1= 1,10) 
ЕОЕМАТ (4Х,5Е10.4) 
ТОР," 


ЕМО 


№ 


Порция 134 


1. В этом операторе выражение в правой части — вещественного типа. 
2. Переменная МІ введена потому, что конечный параметр цикла не может быть вы- 
ражением, содержащим знак операции. | | 

Переменная АК введена для преобразования целого значения К в вещественное, 
что необходимо для его использования в выражении вещественного типа (в следую- 
щем операторе). 
З. Операторы ЕОВКМАТ могут быть помещены в любое место программной единицы 
до конечной строки. 
4. В —Н — фактический параметр. 

Ғ(А),Е(В),Е(В—Н),Е(А--2.*АҚ*Н) — указатели функции Е. 


Порция 135 


1. Потребуется в программу дополнительно включить пять операторов вызова этой 
подпрограммы (по числу используемых в ней указателей функции Е), указав при этом 
для первых трех операторов различные фактические параметры — идентификаторы 
результатов и соответственно заменив слагаемые в операторе присвоения, содержа- 
щем сумму трех указателей функций Е. Аналогичные преобразования необходимо 
произвести для выполнения оператора с меткой 5. 

Другими словами, вместо оператора 

Ј=Е(А)-+-Е(В)--4.+Е(В8—Н) 
в приведенной программе следует записать следующие четыре оператора: 

САГГ, Е(А,У1) 

САГГ, Е(В, У?) 

САГГ Е(В—Н,ҮЗ) 

Ү=Ү14-Ү2--4.*ҮЗ 
а вместо оператора 

Ј=Ј--4.*(А-+(2.«АК—1.)*Н)--2.«Е(А-+-2.*АК=ғН) 
три оператора: 

СА. Е(А--(2.+АК—1.)*НҮІ) 

САГГ, Е(А--(2.+АК*Н)Ү?) 

Ј = Ј+4.*Ү14-2.*Ү? 
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Порция 136 


1. Операторная функция должна быть помещена после первого оператора, так как 
следующий оператор — выполняемый. 


Порция 137 


1. Переменная К принимает значения 1, 2 и 8. 
2. Этот оператор можно заменить следующим: 
К=1ІЕІХ(Х)/2--1, 

где ТЕХ — встроенная функция, преобразующая аргумент вещественного типа к 
целому типу. 

3. При Х == 4 величина К принимает значение 3. В этом случае, как и при 2 $ 
< Х + 4 необходимо перейти к оператору с меткой 12. | 

4. Можно, для этого надо пометить один из них какой-либо меткой, а второй заменить 
оператором безусловного перехода на эту метку. | 


Порция 138 


1. а) В приведенной в тексте программе необходимо заменить первый оператор двумя 


следующими операторами: 
ЕОМСТІОМ СМР (А) 
СОММОМ В, М 
б) В приведенной в тексте программе необходимо первый оператор заменить 


оператором. 
ҒОМСТІОМ СІМР (А) 


и идентификаторы В и М всюду заменить константами 10.0 и 200 соответственно. 
‚ Оператор КМ=М—1 нужно при этом заменить оператором ҚМ= 199. 


Порция 139 


1. Программные единицы могут быть заданы в любом порядке. Операторы ЕОВМАТ 
могут быть помещены в любом месте главной программы до ее конечной строки. 

2. Идентификаторы формальных параметров в теле внешних функций (А, В, М; 
Х; 2) могут быть заменены любыми другими, отличными от идентификаторов самих 
этих функций. Полагая, что процедура СМР задана, ее идентификатор, а также иден- 
тификатор Е (используемый в ее теле) не могут быть заменены никакими другими. 
Можно вместо идентификатора ЕІ употребить любой другой идентификатор (в теле 
Е и Е), однако отличный от Е и ее формального параметра, а также формального 
параметра процедуры ЕІ. 


Порция 140 


1. Указанное в задании размещение заданных массивов на перфокартах не позволяет 
‚для их ввода воспользоваться идентификаторами этих массивов. В связи с этим для 
записи оператора КЕАГ без списка типа цикл требуется непосредственное перечис- 
ление всех переменных с индексами в порядке размещения их значений на перфо- 
картах, т. е. в виде: 
КЕАР” (2,4)М,А(1);В (1), А(2),В(2) ит. д. 
При этом список оператора КЕАР будет содержать 41 элемент. 
Во избежание столь громоздкой записи можно поступить следующим образом. 
Введем в рассмотрение дополнительно массив С(40), в который введем всю ин- 
формацию, составляющую массивы А и В. При этом начало программы придется 
записать в виде: | 
КЕАГ МІ 
РрІМЕМЅІОМ М1(20),А(20),В (20),С(40) 
КЕАР (2,4) М,С 
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ро 8 
К=92:1-—1 
1==92=] 
А()=С(К) 
8 В(1)=С(1) 

2. а) арифметический оператор присвоения, б) переменная с индексом, в) вещест- 
венная константа, г) указатель функции (внешней), д) список фактических па- 
раметров, заданных переменными, е) переменная пелого типа, ж) переменная 
целого типа, з) оператор ЕОМСТІОМ (первый оператор тела внешней функции), 
и) список формальных параметров, к) конечная строка. 


4 ЕОВМАТ (15/(2Е10.3)) 
8 1=1,20 


Порция 141 


1. Наличие оператора ЕХТЕВМАІ в приведенной программе обязательно, так как 
идентификаторы внешних функций Еі и Е? используются в качестве фактических 
параметров в.этой программной единице (в указателе функции СМР). 

В предыдущих программах косвенное обращение к внешним процедурам отсут- 
ствовало. 

2. 4 РОКМАТ (16,2Е12.6) 
ЕХТЕВМАІ РІ 
КЕАР” (2,4)МІ,А,В 
(0=2.:3.1416*СІМР(А,В,МІ,ЕІ) 


7 ЕОВМАТ (5Х,4НО = ,Е9.4) 
ЅТОР 


ЕМ” 
ҒОМСТІОМ СІМР (А,В,М,Р) 


С селелер толале омео л; те о Уне 


ЕОМСТІОМ ЕКХ) 
Е 1— (выражение для вычисления произведения Е(Х) . УГ (Е(Х)?у 


' ВЕТОРМ 
ЕМО 
Порция 142. 
1. Из уравнения эллипса имеем: 
Р = 2 Иа ий 
пах а? (а? — ҳ?)` 


Программа вычисления длины четверти дуги эллипса (А = а, В = Б) мо: 
жет быть представлена в виде: 
СОММОМ А,В 

ЕХТЕКМАТ, БІ 

КЕАР (2,1)А,В,М- 

РОКМАТ (2Е10.3,15) 

1=СІМРо(0,А,М,ЕІ) 

УБІТЕ (1,1). 

ТОР 


ЕМО 

ҒОМСТІОМ Р(Х) | | 
СОММОМ А, В | 
Е1=ЗОВТ(1.--В»В»Х»Х/А+А(А+А—Х»Х)) 
И | а 
ЕМ” 
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551 


2. ЕХТЕВМАТ. $19 
ВЕАР” (2,1) М 
1 ЕОВМАТ (15) 
Ү=СІМР2(0,3.1416,М,5139) 3.1416 
МВТЕ (1,2) 
2 ЕОВМАТ (Е12.2) 
` ЅТОР 


ЕМр 

ЕОМСТІОМ 51М№(Х) 
5132==51М(Х) 2 
КЕТОВМ 

ЕМр 


Порция 143 


1. В приведенной в тексте программе следует заменить оператор, помеченный меткой 
5, оператором (сохранив за ним эту метку): 
Х=(Х0+Е(Х1)—Х1+Е(Хо))/(Е(Х1)—Е(Х0)) 


Порция 144 


1. Чтобы отказаться от сопрограммы ВІОСҚ РАТА можно начальные значения пе- 
ременным 11 и 12 присвоить в главной программе (операторами присвоения, выпол- 
няемыми один раз, но не оператором РАТА\!). 

ЗОВКОЧТИМЕ ЕВ 

СОММОМ/В/ 11,12 

Е=2 . 


Начальные значения обеим переменным 11 и [2 задать непосредственно в подпрограм- 
ме ЕІВ нельзя. 
2. СОМРІЕХ А 
\ РАТА АЛОН: ии Ирин и би 
СОММОМ /В/11,12 
П=1 
12=1 
\ЕТЕ (1,1) А 
И (3Х,А12) 
—=0 


САІШ, ЕВ 

1==1--19 
Е1=ЕГОАТ(12)/ЕТОАТ(Т.) 
М\ЕВТЕ (1,2)1Е1 
РОКМАТ (5Х,12,Е16.7) 
ТОР 


ЕМ” 

Для формирования заголовка таблицы введена переменная А комплексного типа, 
которой присваивается текстовое значение, состоящее из 12 символов. 

Передача начальных значений для подпрограммы ЕІВ производится посредством 
общего блока В. В цикле формируется очередной член суммы, который используется 
для получения очередного члена $5; каждое полученное значение выдается здесь же 
в цикле на печать. | 


7 


№ <> 
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Второй вариант решения, в котором мы опустили операторы, предназначенные 
для выдачи заголовка к таблице результатов ИВ котором результаты накапливаются 
В массив, а затем выдаются на печать посредством списка типа цикл; 

‚ рІМЕМЅІОМ В5(20) 

| СО МОМ ВИКА, КЕ 
` 19==0 
РО 10 11,20 
СА. ЕВ 
15= ҚЕ24-15 
10 В5()=ЕГОАТ(КЕ?)/ЕТ.ОАТ(1$) 
ҰҮБІТЕ (1,4)(1,85(1),1= 1,20) 
4 РОВМАТ (5Х,12,Е16.7) 
‚ ЗТОР | 
ЕМ” 
ВІОСК РАТА `` 
 СОММОМ/В/ТІ,19 · 
РАТА 11.19 
ЕМ” 
Ѕ0ВВООТІМЕ ЕВ 
сомов 
р в 


З. В общем случае не может, так как переменная У, принадлежащая общему блоку, 
должна для сохранения рекурентного процесса выдачи очередного члена ряда Фибо- 
наччи процедурой Е1В сохранять свое значение. Оператор У=\У—9+0 можно допу- 
стить, если при этом перед ним ввести оператор 


УУ = У, 
а после него (и после использования в нем получаемого значения У) ввести оператор 
МЕ 


Порция 145 


1. СОМРІЕХ А 
МТЕСЕК ЕІВО 


ОАА ААН иуи $1) 
== 

ИР 

\ВТТЕ (1, ПА 
1 РОКМАТ (3Х,А12) 

\!=0 


ро 3 1=1,20 
О=ЕІВО(П,19) 
= 
$1= 0/У 
3 \ВИЕ (1,9)1,51 
2 ЕОВМАТ (5Х,10,Е16.7) 
Тор 
° ЕМО 
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Порция 147 


1. Для указанной в задании замены необходимо соответствующие текстовые кон- 
станты отперфорировать и задать на вводе. Из оператора РАТА необходимо изъять 
ту часть, которая касается задания начальных значений массива А. Оператор ввода 
массива А может быть представлен в виде: 
КЕАР” (2,3) А 
3 РОКМАТ (646) 


ГЛАВА У 
Порция 148 


1. а) да б) да в) да г) да д) нет е) да ж) да з) нет и) да 
а), в), г), е) являются идентификаторами в том случае, если они не выступают 
в операторах в роли служебных слов; а ж), и) — в роли описателей. полей. 


Порция 149 
1. а) Допустима. 
б) Недопустима, так как в одной выполняемой программе не может быть двух 
функций с одним идентификатором. У: 
в) Недопустима, так как идентификатор І не может определять объекты класса 5 
и 1 в одной программной единице. | 
2. а) Недопустима, так как идентификатор К не может определять объекты, принад- 
лежащие классу 3 и классу 5 в одной программной единице. · | 
о 6) Недопустима, так как идентификатор К не может определять объекты, при- 
надлежащие классу | и классу 9 в одной программной ‘единице. 
3. Класс 2: К$1, ЕТА, М, А, В 
[Класс 5: СМР? 
Класс 7: 110, Т3 
4. Процедура Т2: класс 5: Т2, ТІ 
классе 2: Хо 
Процедура Т3: класс 2: Х, ТЗ 
класс 5: ТЗ, ТІ 
5. а) Класс 1: АВ, ВРВ 
класс 2: А 
класс 8: ВЮ 


установить нельзя 
г) класс 2: $ 


б) класс 1: АІ классных 

класс 2: В, С класс 6: Е2 

класс 4: АВ$ класс 7: А 

класс 8: АВ$ д) класс А; ВАТТ 
в) класс 6: А | класс 3: $ М 

класси хо 8 7 класс 5: КІМ 

Класс А2, АІ в данной после- е) класс, № А 

довательности операторов класс” С, 


Порция 150 


1. В списке оператора СОММОМ могут появиться только идентификаторы простых 
переменных и массивов, а также описатели массивов с постоянными размерами. 


В списке оператора ЕОШІУАІЕМ№СЕ могут появиться только идентификаторы 
простых переменных и переменных с индексами. 
2. а) Допустима. 


‚ 6) Недопустима, идентификатор функции не может находиться в списке опера- 
тора СОММОМ. 


321 


З. а) Недопустима, идентификаторам 11 и 12 отведено общее поле памяти, поэтому 
в операторе РАТА значение может быть присвоено только одному из них. 

6) Недопустима, см. а). 

Е годон усти, переменная К(2) не может быть указана в двух операторах 


Порция 151 
1. 40 (40--1—1=40) 
2. См. стр. 236. 

Порция 152 
1. а) Нет. 


6) Может и должен в теле функции, обозначенной данным идентификатором; 
не может в других программных единицах. 
в) Не может. 


Порция 154 


1. Внутренняя (оперативная) и внешняя. 

2. Режим чтения (снятия копий с кодов, хранящихся в некотором поле памяти) и 
режим записи (посылки кодов в поле памяти). 

3. Байты — это минимальные адресуемые поля памяти. 
4. Описание идентификатора служит информацией для выделения соответствующего 
поля памяти данному, обозначенному этим идентификатором. 

5. Тип данных может задаваться явно (спецификаторами типа) и неявно для данных 
целого и вещественного типа (первой буквой идентификатора). 

6. Обращение к данному в режиме чтения недопустимо до тех пор, пока ему не прис- 
воено значение соответствующего типа. 


Порция 155 


1. а) Выполнение операции присвоения. 
6) Выполнение оператора ввода, в списке которого указана данная переменная. 
в) Употребление идентификатора переменной в качестве управляющей перемен- 
ной в операторе ОО. 
2. См. стр. 248. 
3. Может. 
4. Можно, если это переменные одного и того же типа. 
5. Можно. Однако такое согласование не будет иметь места в том случае, если дан- 
ные, объявленные эквивалентными, не совпадают по типу. См. также стр. 247 об 
определенности эквивалентных величин в операторе ввода. 
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